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' ■ ■ ■ ■ ■ 

B^E SOS 



H DE 6S02 KENCRS tf - EEN Olffl VDOR EXXXX GEBRJIKERS ** DE £302 KENNER tf - EEN BLAD VOOR 6XXXX BEBRUIKERS 



De vereniging hitft laden in Nidirlind, Btlgif, DuitilAnd, 
Frankrilk, Spai\]e, Portugal, Aierika, ia^bia, OentMrken. 
Htt dot! vin dt virflnigina in htt bivordartn van dt km- 

nisuitNisseling tussen georuikers van 6XXXX-cMptttirt, all 
CaNDORE-M, Me. Q£-i. PEAROM, fllM-fiS, SViT PET. BSC 
flTflRI, m-A Bfl6I§ 106, lllOTilHMputirt, IH-i^, OSI. 
flCC 8000, AOOm ELECTRON. SYSTEM 63, PC-100, PflLLflS. NINTA 
FOWDSfl, OWC-1, STARLIfiHT. CV-777, ESTATE III, ^/66, 
KIN, MS, KENPAC SYSTEK-A, Elektuur-ciMputers (JUNIOR, en 
de OCTOPUS) LASER, aaar ook 6800, 6809 en 68000-coMuters. 
Oe kennisuitNissehno Nordt o.a. gerealiseerd door 6 ual 
per jaar DE 6S02 KEMlER tt pttbliccrcn, door hei houden van 
landclijke clubbijeenkoesten, door het instandhouden van 
een cassette-bibliothcek en door het verlenen van paper- 
tiare-service. Regionale bijeenkoesten ttorden door de leden 
georganisacrd. 

Vanchijningsdata 
DE 6502 KBWER 19 85 

derde zaterdag van 
februari, april, juni, 
augustus, oktober, deceiber. 

Inlichtingen over de regio- 
bijaenkoMteni 

Bertrd van Roekel 
Van der Palest raat 11 - C 
313S LK Vlaardingen 

Tel.: 010 - 351101 



Bijeenkoesten van de club 

derde zaterdag van 
januari, eaart, eei, 
septeeber, noveeber. 

Redaktie-adres en inforea 
ties over paperttare etc. 

Uillee L. van Pelt 
Jacob Jordaensstraat IS 

2923 CK Kri^/IJssel. 
Tel. : 01807 - 19881 



De vereniging is volledig onafhankelijk, is statutair op- 

?ericht en ingeschreven bij de Kaeer van Koophandel en Fa- 
niken voor Hollands NoorderkMartier ta Alkaaar, onder 
nuaeer 634305. 



Sekretarisi 

Bert Klein 
DiedenNeg 119 
6706 CM flageningen 
Tel. « 08370 - iSM* 

Redaktie DE 6502 KENNER: 
Villet L. van Pelt 
Jacob Jordaensstraat IS 
2923 CK Kriapen/IJssel. 
Tel. I 01807 - 19681 



Voorzitter* 

Rinus Vleesch-Dubois 
Fl. Night ingalestraat 212 
2037 n6 Haarlea 
Tel.* 023 - 330993 

Penningaeester: 
John F. van Sprang 

Tulp 71 

2928 EU Kriapen/Usiel. 
Til, i 01807 - 20389 



Ledeni 
Adri Hankel 
Emin Visschedijk 
Gert van Opbroek 
Nico de Vries 
Erevoorzitter! 
Ereleden 

Lidaaatschap : 



HardM re/soft Harc/DQSeS 

Hardnare/softNare/DOSSS 



(05490 - 51151 
(06490 - 71416 
(01729 - 8636 ) 
(010 - 502239) Hardwre/softnare/PET 
Siep de Vries 

Mm. H. de Vries - Van der Winden 
Anton Mueller 

HFl. tt^ per kalenderjaar, postreke- 
ning 3757649 t.n.v. Pemiingaeester KIM 
Sebruikert Club Ned., Kriapen/IJtsel. 



ftdvertenties : Tarieven op aanvraag bij de redaktie. 



DE 6302 KENNER is een uitgave van de KIM Sebruikers Club 
Nederland. Itet blad Nordt verstrekt aan leden van de club. 
OE 6302 KENNER Mordt van kopij voorzien door leden van de 
club, bij de opauk van een publikatie bijgettun door de 
redaktie. De inzandingen van prograaaa's dienen voorzien te 
zijn van koaaentur in de listinot en zo aogelijk door een 
inliidind voorafgagaan. Publikatie van een inzending bete- 
kent niet dat de redaktie of het bestuur enige aansprake- 
lijkheid aanvaardt voor de toepassing ervan. Oe inzendingen 
kunnen geschieden in asseablv-source-Iistings, in Basic, in 
Basicode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden schri jven ook artikelen over de door hen ontNikkel 
de hardMre en/of aanpassingen daarop. Zij schrijven tevens 
artikelen van algeaene aard of reageren op publikaties van 
andere inzenders. 

DE 6502 KEMCR IS EEN BLAD VAN EN DOOR DE LEDEN 

Micro-OTE Asseabler/Disassetbler/Editor is een produkt van 
Micro Uare Ltd., geschreven door Peter Jennings en bestead 
voor alle 6502-coaputers. De KIM Sebruikers Club Ned. heeft 
de copyrights vermrven nadat ons lid Sebo Uoldringh de 4 K 
KIM-1 versie uitbreidde tot 8 K KIM-1 versie. Adri Hankel 
paste deze aan voor de JUNIOR. Uillea L. van Pelt stelde 
een nieuM 8 K source-listing voor de JUNIOR saaen. 
De iapleaentatie op andere systeaen dan de KIW-1 en JUNIOR 
kan eenvoudig gebeuren door het aanpassen van de I/O-adres- 
sen, aelke in de source-listing geaakkelijke te vinden zijn 

FATE Foraat-lister/cond. Asseabler/Tape-utilities/Editor is 
de door ons lid Rob Banen geschreven source-listing van een 
12 K universeel systeea voor de JUNIOR-coaputer aan de hand 
van het universale disk operating systea van de fa. Proton 
Elactronict ta Nurden, nu getchikt voor xerken aet tapes. 
FATE Hordt beschikbaar gesteld aet toesteaaing van Proton. 

In de editles van DE 6302 KEM^CR wrden regelaatig aedede- 
lingen gedaan over de door de club georganiseerde bijeen- 
koasten. Ook itorden bestuurlijke aededelingen gedaan, naast 
inferaaties over hetgeen in de handel te koop is. Leden die 
lets te koop hebben of iets zoeken kunnen dii in de edities 
van DE 6502 KEMCR bekend aaken. Ook Morden brieven aan de 
redaktie gepubliceerd, evenals specifieke vragen van leden. 
De edities aorden saaengesteld op basis van een groot aan- 
tal prioriteiten, aelke door een redaktievergadering Morden 
gehanteerd. Dezc vergadering bestaat uit de vaste aedewer- 
Sert zoalfl in de colofon veraeld. Het aantal inzendingen is 

!roter dan in een enkele editie van ainiaaal 4fl pagina's is 
e vertierken. Hierdoor kan het voorkoaen dat een inzending 
eertt na enige tijd kan Horden gepubliceerd. 

DE CLUB HEEFT BEHOEFTE AAN MEER LEDEN. UIJ UILLEN MEER RAN 
KUMMEN BIEDEN DAN NU AL HET 6EVAL IS. UERF DAAROK EEN LID' 

NILT U EEN PRIJSLIJST? STliUR EEN 8EFRANICERDE ENVaOP AAN 
HET REDAKTIE-ADRES. 

Een onafhankelijke jury kent jaarlijks een aantal aanaoe- 
diqinqspreaies toe aan auteurs van gepubliceerde artikelen 
in DE K02 KEMCR. 
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It 6S02 KENNER is een 
ttilgave van de KIN gefarui- 
lers Club IMerlaml. 



Mm imf M iim»im 
van en reakties op artike- 
len voor OE 6S02 KENNER: 
Nillet L. van Pelt 
Jacob JordaensstritI 15 
29^ Kiiiin a/Iltsel 
Til. s etW7^1«l 

Vaste MdetMirkerst 

MillM i, viR MI 
liiiii vM Rorisl 
Fllfii ilMlHiijzen 

PfWlMCt Min rkBrsi 

Rob Banen 
Frad Beftrin|Br, (Bemny) 
Pridus Jonkaan 
Gert Klein 
Roger Langeveld 
Fernando Lopes, (Portugal) 
Frank Nanshande 
6ert van Opbroek 
Ruud Uphoff 
Frans Verberkt 
Heraan Zondag 

Behele of gedeeltelijke 
overnaae van de inhoud 
van DE 6502 KENNER zonder 
toesteaning van het be- 
stuur is verboden. Toepas- 
sing van gepubliceerde 
prograana's, hardware etc. 
IS alleen toegestaan voor 
persoonlijk gebruik. 

DE 6502 KENNER verschijnt 
6 X per jaar en heeft een 
oplage van 500 exeaplaren. 

Copyright (C) 1986 KIM 
fiebruiKers Club Nederland. 
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De voorpagina is de D0S65- 
controllerkaart. ontMik- 
keld door fld BrouHer. 
CflD/CflH: E. Visschedijk. 
I.s.m. : A. Hankel 
Fotogr. Fr. Visschedijk. 

In verband aet auteurswet- 
oeving en andere aaatrege- 
len op het gebied van be- 
scheraing van softHare 
kan de redaktie geen aan- 
sprakelijkheid aanvaarden 
voor inzendingen. 
Inzendingen dienen afkoa- 
stig te zijn van de inzen- 
der, tenzij anders aange- 
geven. 



1. Alternati eve Brea k Routine t.b.v. CPU-kaart 
•r« Frant SmtMiijmi 

2. Van di radakiii 

3. APPLE: Catalog Iteader 
... Frank Hanshande 

4. Elektor's OCTCMJS/ECSS cotputer: 
fl Data-Buffer as an Aftertheugbt 
... R.T. Overakker 

5. DDS65I D086S Corner 

... Coen Kl«^jU,f|«!l|lt .. 

6. Elektor's 0CTCPUS/EC65 coaputer: 
Modified Diskette Copier Version 2.2 part 2 
... Uolfgang Titiseh 



f) JUNIOR! Inttrfacekaart an gewijzigde VDU-kaart 

- ■ - ified 

... Picter it ViMff 



JUNIOR: Interfacecard and aodified VOU-card (hardware scheaes) 



!• JUNIOR! POSVflL SCHAAKNONITOR part 1 

' JUNIOR: POSVflL CHESSHONITOR for Elektor's JUNIOR with hexdisplay 

,1.. OCTOPUS: Printer InitialisattUj'lir.gllS 
... Leif Rasaussen, Denaark 

10. BASIC: Coapetitiestanden (Handbal) part 3 

■ : ; Printroutine voor tl^Mlfpitd fiiw!..,^- 
... Serard Keet 

11. C-lfii Tokenization of the MSIC Iratructiom 
... Fred Behrinyer, ttucnchen 

12. BRSICi Omo qm in BMiie 

13. JUNIOR Hith Proton's Senior Monitor 
Modified Foraat-Lister for Senior Monitor 

' ... Rob B«ien 

H, 6fl4Si Di 6B4S geprograaaMrd 

6845: Prograaaing the 6845 (see Elektor Holland, Oct. 1984) 
... H. Feijen 

15. Elektor's VDU-eanK Inwrt « fitlttt etaracter routints tvl^^i 
de VDU-kaart 
... Frans Saeehuijzm 

16. DIVERSEN: 
0CT0PU8/EC63I Probltas with power-on-reut 

... Siegfried Losensky, 6en»ny ■ 
ATARI: Sprites on Atari 

0CT(PUS/EC65: Patch Real Tiae Clock (see Elektor HolIand.;jirP 'BE) 
APPLE: Bug in Graphics in Applesoft, DE 6502 KENNER Dec.^ 
C-64: Converting Tokenized Baite ilKO refttlar B»ie fit ' 
C-16: Supertape on the C-16 
... Fred Behringer, Geraany 
APPLE: Verandenng van Uw Basicode-2 routines 
... Frans Verberkt 
6502/6510: 6502/6510 verschillen 
\flXi-kaart: Een paar probleaen 
... Stefan Sperling, Belgiua 
0CT0PUS/EC65! SAMSO^ tips 
... Leif Rasaussen, Denaark 
News froa the DRM Front 
... Fred Behringer, Geraany 



2. 

3. 
3. 

4. 
5. 

7. 
16. 

21. 

29. 
31. 

34. 
36. 
38. 
45. 

48. 

6. 

21. 

21. 
22. 
22. 
22. 

23. 

24. 
24. 

29, 



! 



mm ROUTINE 



PROTON sm imiam V4.4 pose: OOOi 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
001 i 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
002: 
0022 
0023 

0025 
0025 

:)023 

ms 

0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0O58 
0059 
0060 
0061 
0062 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

■)00(! 

0000 
0000 

woo 

OOlXt 

0000 
'iOCO 
0000 
OOlX) 

0000 

0000 

occo 

0000 

oooc 

000<! 
0000 
0000 
CK)00 
0000 

oooo 

0000 
0000 
0000 
E9DE 
E90E 
E9DE 
E9DE 
E9E1 
E9E3 
E9E5 
E9E8 
ESEfl 
E9EC 
E9ED 
E9ED 
E9ED 
EgED 
E9F0 
E9F2 
E9F4 
E9F7 
E9F8 
E9FS 



ftDOnO 

297F 

D007 

2013Efi 

C91B 

FOOB 

60 



2013Efl 

C91B 

D003 

4C9FE1 

60 



.TIT 'BBEflK Bournr 
.OPT m 
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fiUTEUR: F.J.M. SICEHJIJ2B4 

LIPPEDfil 19 . ^ 

2904 CL CflPELLE flflN l^ii 1 
TEL: 010-512507 



DM EEN BASIC PROGRflHMfl- OF EEN DISASSEMBLER LISTING 
CP HIT BEELDSCHERM OF EEN PRINTER EVEN TE KUNNEN 
iM)ERBREKEN WORDT IN DE RESEL BEBRUIK SEMflflKT VAN 
DE ' BREAK' TOETS 

OP DE PARflLEL-AANSLlilTlNG VAN DE VIA 6522 OP DE 
CPU-KAAR' VAN ELEKTULlR IS NIET ECHT EEN VQORZIENINB 
SETSOFFEN QM EEN BREftK-TOETS mM SUilM, 
"EVENS BEZIT HET DOOR MIJ SEBRUIKTE 'llifl@«JI® 
m KEN E3HTE 'BREAK' TOETS. 

VESDER f€EFT DE PROTON MaNITOR EEN 'KEYBOARD INTERRUPT 
ROUTINE' yELKE DCK3R EEN BREAK WORDT A»iGESPROKEN Bi 
VERVOLGENS DE KOSELIJKHEID BIEDT ON EI€RZIJDS DOOR 
HET INTQETSEN VAN EEN WILLEKEURIGE TOETS DE VERUERKIN6 
VQORT TE ZETTEN EN ANDERZIJDS DOOR HET INTOETS0I VfW 
EEN ESCAPE TERUG TE SPRINBEN NflAR DE NONITOR. 
HET PRQBLEEM VAN HET QNTBREKEN VAN EEN 'BREfiK* Wm 
HEB IK ALS VOLBT OPGELOSTs 

DOOR HET GELiJKTIJDIG INTCETSEN m DE CONTROL+e 
mm EEN A9:il OO KGE»£REERD. 

OE HONITDR ROUTINE RCHEK KIJKT NU NWR EEN NULL CHRRflCTER. 



6ETCH 
COKIN 



=11001 

=mtz 

=*E19F 
»=$E9DE 



PORT A DATA REGISTER 
MaNITOR GETKEY RQUTII€ 
WARM i£STflRT OF MONITOR 



im mmm Mmmm routine *** 



km, 



RCHEKl 



LOfl VflPRD 
AND *$7F 

BNE RCHEKl 
JSR GETCH 
CMP «$iB 
8EQ READ2 
RTS 



it tsmimR 



UflIT FOR A KEY 

HAS IT ESCAPE? 

RETURN TO MONITOR 

IF NOT END OF INTERRUPTION 



*** GET CHARACTER TO ACCU, ESCAPE PO^IBLE Hf 



READl 
REA&2 



JSR GETCH 
CNP ««1B 
BNE READ2 
JNP COMIN 
RTS 

.END 



UAIT FOR A KEY 
UAS IT ESCAPE? 

ON ESCAPE TO HOIQIR 



ERRCiS : 0000 



<0000) 
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VPSI DE REDaKTIE 



Het »»erk op de redaktiekawer gaat gestaag voort en laat 
zich door qeen konsngimedag, i mei-viering, bevriidings- 
dag, heimeivaartsdag of verplichte arbeidstijdverKortmg 
verninderen o« door te gaan, of het oioet rijn dat de be- 
schikbare apparatuur het begeeft. Voor een buitenstaander 
(Doet het haast wel lijken of het hier on een tNeeaaande- 
lijkse cyclus gaat die op den duur dodelijk vervelend 
dreigt te worden. En hij heeft gelijk. flls er teroiinste 
aan een voorwaarde voldaan wordt! er moet gewoon nooit 
iets ODNindends voorko*en. Dat is nu juist wat nij zo on- 
gelofelijk aan deie kant van onze hobby bindt. Er gebeurt 
ledere dag wel iets waarvoor elke idealist en freak als ik 
best irel rode koontjes bij kan krijgen. Nee» nou het geval 
dat er op een vrijdag ineens een eoitie van *ei 1985 van 
Elektor Electronics oij (iiij in de bus glijdt. ^ch, ik 
krijg wel user toegezonden zo af en toe, «aar toch, i'< ben 
nieuwsgierig of er dezelfde artikelen in staan als in 
Elektuur in Sederland. Het zal Nei, want zij publiceren de 
ons inmiddels heel bekende printer-buffer, uan valt ineens 
Id' n oot| op een kop "CfiLLINS ALL 6502 USERS". Dat ben ik, 
rfenk in nog. En plots zie ik mijn naam en adres. Verhip, 
die tekst, wat ko«t die «e bekend vooi' Seen wonder, ik 
schreef het 7eif niaanden geleden ai. Infornatie over onze 
internaiiona'e club en onze aktiviteiten. Een halve pagiiw 



ffiasr lie'st wet dasrboven "advertisement". Elektor Elec- 
tronics ko«f; uit in de U'<, USR en in lerland. E^ft^ vanaf 
dal moinent begin ik te gloeief;. Jeminee, stel jf *o»P, ik 



•oet ae preparen, erop vcorbereiden, inaatregelen nenten 
alles in orde brengen, er komen natuurlijk postzakken vol 
reakties. Over de eerste koorts heen denk ik: als de 
donder alle redakties in en buiten Europa aanschrijven. He 
•oeten zorgen dat zij dit voorbeeld gaan volgen. Uant, vij 
hebben behoefte aan neer leden en we onderstew^ M^, !U§W 
uitwisseling van kennis hun doel iiRaers ook> llji'Wll -m 
leden weten te boeien net onze artikelen. dan zijn er veel 
nensen onder hen die hun eurokaarten gebruiken en als er 
veel mensen zijn die hun eurokaarten gebruiken, dan biedan 
wij hen weer een interessant dak boven het hoord. In Enae- 
land hebben de redaktieleden van EE het iMiiPfli^: 4t p- 
derland en Duitsland was onze naaM a! flM fMSltf, iMr 
we zijn er nog lang met. 

Waar ja, wat doe je nou tnet zo'n probleem dat die mensen 
geen spaan Nederlands kunnen lezen, terwij' wij over het 
algemeen toch best in staat blijken het Engels te begrii- 
pen? Nou, dan leg je dat ce leden voor. En wat zie je? in 
minder dan geen tijd hebben zich een aantal leden geseld 
die bereid blijken alle noodzakelijke teksten te vertalen 
van het Nederlands naar het Engels. Er waren ailang een 
aantal leden die hun source-listings in het Engels ceccji- 
•entarteerden of gehele artikelen in die vorm schreven 
naar pu gaat het on tiateriaal van anderen, al dan niei 
reeds gepubliceerd. Ook hier kan ik best nog wel hulp ge- 
bruiken, «aar ik wilde «aar even kwijt, dat onze j^iUb weer 
tens laat zien dat het ook andere dmgen aankgn dait alleen 
aan het toetsenbord of aan de soldserbout hangsn. 



WiUen.U van MIt, 



I REM CATALOG HEAUR 
I REIt DOOR 
I REM FRflDRC IHNSHMfflE 
I REM 
I REM 

I FOR RHTS = 896 TO 926 

I READ BYTE 

I POKE RHTS, BYTE 

I NEXT 

10 REM 

0 REM RWTS ROUTINE ZIT WJ 
:0 REM IN HET GEHEUGEN 
;0 REM 

lO DATA 169,3,160,138,32,217 
iO DATA 3,96,0,0,1,96,1,0,0 
,0 DATA 0,155,3,0,128,0,0,1 
0 DATA 0,0,9fe,l,6,l,i39,2l6 
10 REM 

10 REM DIT WAREN DE DATA'S VfiN 
10 REM DE RHTS ROUTINE 
0 REM 

!0 REM VARIABELEN : 
10 REM 

iO TR = 2!SE = 2 
iO LEES = l:SCHRIJF = 2 
,0 RET$ = CHR$ (13) 
'0 ESC$ = CHR$ (27) 
10 H$ = CHRi (B) 

10 RHTS m 

10 REM 

0 REM SGHERN OPMAK 

D REM 

» SPEED= 255: mmi 

.0 TEXT : HOME 5H = 5 

iO PRINT "CflTflLOG HEADER DOOB 

0 PRINT ■ — 



m w» 5 

m mm *m k te veriwderen oiscehe in drive* 
390 PRINT 'immmmspm toets...*; . 

400 SET T$ - 

410 IF T$ ■ ESCf THEN 1150 

m POKE 910, TR: POKE 911, SE 

430 POKE 918,LEB 

440 CALL mh 

VSO REN 

460 REN l«J IS 6EPR0BEERD DE 

470 l£H BEN0DI6DE SECTOR TE 

480 REM LADEN. HE KIJKEN TOCH 

490 REN N06 VOOR DE ZEKERHEID 

500 REN OF ER EEN FOOT MS 

510 m 

^ m * PEEK (919) 

530 IF ERR = 16 THEN fl$ = "HRITE PROTECTED" 
IF ERR = 64 THEN M = 'I/O ERROR" 

IF ERR ' mimu M' 'REw mm 

VTAB 20: HTRB 20 - LEN (A«) 
FLASH : PRIIff fl$ 
NORMAL 

IF UEH m) i ^trnm 

REN 

REN ER IS 6Ei( FOUL JUS 

RENBAmHEiiiiiit^r 



mm wmmm' 



540 
550 
560 
570 
580 
590 
600 
610 
620 

m 

650 
660 

m 



m 
m 

720 



ffil Tf s MTO 340 



m m HORDT DE NIEUUE 
REN TEKST 6EVRAAGD EN DIE 
MEN NAG NIET KER DAN 11 
lEN LETTERS ZIJN 
REN 

VTflB 5! HTAB 1: C«.L - ^ 

mm "VOER DE TEKST IN (NAX. 11 LEHERS)" 

mm I PRINT 'y.m = " 



3 



E^B 5 D 



KENNEIR 



730 
740 
750 
755 
760 
770 



HTflB H: bet T$ 
IF T$ = ESC$ THEN 340 

IF T» = RET$ THEN J = LEN (IN*): SOTO 810 

1 1 : !! 3g liS! n flg iS : "^%^J\m - 1..H . « - ™ 7. «»« Mw • v mmm ™ 

IF flSC (T$) ( 32 THEN 730 
780 IN$ = IN$ + T*: PRINT T*; 
790 IF LEN (IN$) I 11 THEN H = 5s BQTO 700 
BOO H = H + l: eOTO 730 
BIO REM 

REM POKE NU DE TEKST HI Si 
REM SECTOR BUFFER 
REM 

IF J = 0 THEN 880 

FOR I = 13 - J TO 12 „„ , , 

POKE 32942 + I, ffiC ( HIM (IIW.J.l)) + 128SJ = J 
FOR I = 32943 nwm^ IT 
POKE 1,160 
NEXT 
REM 

REM WE GflflN NU DE SECTOR 
REM HEER TERUG SCHRIJVEN 
REM 

POKE 910, TR: POKE 911,^ 
POKE 918,SCHRIJF 
CALL RWTS 
REM 

REM WE KIJKEN TOCH NOG 
REM VOOR DE ZEKERHEID OF 
REM ER EEN FOUT IS 



820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 



i: NEXT 



1020 REM 
1030 ERR = PEEK (919) 

\.m IF ERR = 16 THEN ft$ = "WRITE PROTECTED 

1050 IF ERR » 64 THEN ft$ = 'I/O ERIfflR" 

1060 VT« 20: HTftB 20 - LBH (M) 

1070 FLftSH : PRINT fl$ 

loso mmL 

1090 IF LEN (ft$) > 0 THEN fl$ ■■ 

1100 m 

1110 REM ER WB BEEN FOUT, m 

1120 REM KIAINEN ^ OUS HET 

1130 f£M PROeRfWMfl \OLATEN 
IIIO REM 

1150 HOIC : END 



: ^T T$: GOTO 340 



3. Now load your bufferless progra(n(P'?). 

Set Wemory-pointer to free space in your memoru and 
subsequently list tiie prograa into your «e«ory. 

!)ISK'"!.0 PR" 

DISK'"'«'E 8000,8000" 

?!?:\iTt5,"30KE 893,!" 

By t'lese commands your program is invisibly copied in 
memory from 48000 onward as an f^ii>-ff-ltj Mlswt'i^ a 
POKE-command (see later on). 

4. I«ext, load t:ie aid-program: again set Kemory-pointer 
i«S Jisi^ yira* *«Mif p (esr-WIIW., ?.54) 



DISKf"lO 

DISK'"«f 8000,8000" 
DISK! "13 10,01" 

Your bufferless p"og"a* ir new "typec" mto t-iP s.*- 
fered progra*, followed by a listing on screen. *ict;i:e 
the PWE-cCKiKiand at t^e end t-'e listing, '''iis coiii- 
niand enables your keyboard, your progra* hasn't got 
3 I:nenu*ber lo, then you have to delele liii^iSit" It 



origi'-iati'^r f.-o* the aid-ppogra». 
5. DrSK'"!^'j B'JF-'R" 

saves your now well Blfferei PRograii. 



(NIEUWE) SOEKEN 



Systesi Elector's OCTOPUS-conputer 
Suihof! ??.T. Qvefa'tker 

Yes, I did type a 20 K ?™f^^ fsffBtting to create a 
buffer beforehand. 

J.D.J, Derksen, a meff;3er of our club, helped me out 
neatly, "■tis ws? done by using *lemory as an I/C device: 

1. Use option 7 of BEXEC*. Create buffer(5) as desired ix^ 
type an aid-p rograis 

10 m mm 

2. Put this exciting prograi on disk. Later on you ierge 
this buffered arograa with your bufferless one. 



BCRJW ZELF EEM EK^Efi'SYS^Ei'l IN BflSIC 
Chris N'aylor/ve^t: A.W. Korff 
:986/ca. 250 pag./f 45,= 
ISBN 90 5233 16? X 

WERKEN .«ET BEST.flNDEN CP DE CCMMQDCSE-54. 

B. Fisher/L. -inkel/J.R. tftm 

vert! Jan Kuis 

1986/ca. 480 pag./f 78,= 

ISBN 90 6233 18b 6 

P=?OSRfi?!l«!EERCyRSuS floPLESQFTBHSIC. 
Nok van Veen/fld van Delft 
1986/ca. 280 pag./f 45,= 
ISB!« 90 6233 174 2 

6502 flSSE'^BLEERTflfll EM MIOiMCODE V30S KB! 
fl.P. Stephenson 
1934/ 206 pag./f 37,^ 
ISBN 90 6^3 123 8 
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* DOS 65 CORNER « 

* * 



I, ■ 0 ■ 



•to" '.. 



Author: dr5 Conrad H. Kleipool, Val de Perier, F-8331i Cogolin, Frw»ce. 
tfl! (33) 94.54.43.82. 



mtv 1^-0 VERSION,^. 

llt'i start this Do565-corner with some good 
news. The Brouwer-Hankel-^'isschedyk team has 
not been wasting their time since they brought 
out Dds65. They have Just announced an upgrad- 
ed version which has seme exciting new fea- 
tures: 

- 86 instead of 48 tracks; 

- Directory divided in 7 subdirectories; 

- Memory extension to accomodate a virtual 
disl( up to 1 Mbyte; 

- Extra DD formatting writing IB sectors per 
track instead of 16, This results in 728 
Kbytes formatted for an 80-tracks floppy. 

- Parameters can be incorporated in comriand 
files. 

Some of these features I have already seen in- 
piemented at Ad Brouwer. A virtual disk (also 
called ramdisk) is a part of memory which is 
laid out as a disk. 

The idwantage is that you can download ail of 
your systemdisk into this virtual diskmemory 
after startup. The diskmemory behaves exactly 
as a real disk, there are directories, tracks, 
sectors, etc. However, as the information now 
comes fro(Ti memory, a virtual disk access has 
no delay tnd all utilities are available imme- 
diately. Also, your previous systemdrive is 
now free to do other work, so it will actually 
save a second drive. 

Obviously, the extra memory can also be used 
as ordinary Ram. The Dos65 teairi is actually 
designing a PC-board for the virtual (ram) 
disk, which will hold 16 Drains of 256K for a 
total of 512 Mbyte. It will be possible to 
reduce this to 6 Drairis for only 256 Kbyte or 
to extend the board to 1 Mbyte. Considering 
the give-away prices for Rams (about Dfl.lB) 
a Hm disk will be a lot cheaper than an extra 
drive and faster too ! As Dos65 supports three 
drives you can work with the ramdisk and two 

According to Erwin Visschedyk the bare pc 
board will cost about DF1.5B, provided he can 
find sufficient dubmembers to justify a pro- 
duction order. So don't hesitate to call him 



if you want to parlicip^te* 
By the way, there is an Interesting article in 
the Review Section of the September 1985 Byte 
issue about a Ramdisk for the Comnodore 64 
produced by P-Technologies. For Commodore 
owners worth reading, it provides a good it" 
sight in the use of ramdisks. 

NEW UTILITIES TOO ! 

Little by little Dos65 is becoming a very 
powerful professional tool. Those d-^ my 
readers who work regularly with the Moser as- 
sembler know that this assembler, although 
rather poMjerful also tends to be very slew. 
To assemble Dos65, for instance, takes at 
least an quarter of an hour, which is rather 
bothersome if one has made only a minor ad- 
justment. Ad Brouwer has written a new assem- 
bler in C-language for the 6889, which he has 
now compiled for the 6582. 
Although it is just as complete as Moser, its 
speed is absolutely amazing. Brouwer demon- 
strated AS65 for me and I estimate the speed 
at least five times faster than Moser. The 
source format has been revised and differs 
considerably from Moser, but everytl1ft| Is 
very 1 ogi cal . ' - 

It is possible to assemble for the 6592, the ' 
standard 65C82 and the Rockwell equivalent. In 
order to convert old Moser source files to the 
new AS65 format a new utility will be provided 
called MTOAS (Moser to As). 
As65 does not store the object code it pro- 
duces in memory but writes code directly on 
disk as binary files. To test the new code it 
is usually not convenient to load this in its 
own memory location because tfie'Te may be 
eproms there or you do not wish to overwrite 
the old code yet. Normally, binary files 
cannot be loaded to a different starting ach 
dress than the one provided in the file. 
Therefore a new utility has been written 
called OLOAD which allows you to load a binary 
file elsewhere in memory. 
The third complement to AS65 will be a utility 
called WiP. This will shew the begin and end 
addresses of the various parts of a binary 
file and also the main start address of this 



^ile. This information is not shown by Off and 
I find this utility a handy complement. 
Then something we all have been waiting for: a 
disk doctor. I suppose everybody has soffietimes 
been confronted with the problem of a mutil- 
ated disk, the sectors are still there but the 
directory has been damaged or deleted and the 
file or the whole disk is no longer acces- 
sible. Or just the problem to renaine a disk. 
The Disk Doctor allcws you to remeay all this 
by read and write access to all sectors. Erwin 
Vfsscfiedyk wrote this utility. 
Finally a uti 1 ity to program the acia «»( tht 
CPU board will beccflse avail able. 
For the future there are a lot of plans; some- 
time there will be a C compiler; a legalised 
Basic and a Pascal are being researched. Some 
people are working to adapt Elektors graphic 
card and implement a CW) system! Ue are at the 



beginning t»f i toftg develtpnent. 
Those readers who want more information, would 
like to contribute or write software, please 
get in touch with the Do565 coordi nates' i Bu'in 
Visschedyk, Drakesteyn 299, NL-7618 TR Al«elo, 
telephone (31) 5498-71416. 

P.S. Time goes by and we keep on forgetting 
important events. I just read in BHE's Anni- 
versary Issue; "nweirt»r 1975, MOS Techn6!(j|y 
announces the KIfi-1 computor, IK byte Ram, 
IK byte monitor in Rom, Keypad, Led readout, 
Eiitttte and serial oBtpl *or ♦24S.» 
In the same year the 6562 was unveiled and 
Byte was published for the first time. 
It seems a timg Ifm f 

Coen Kleipoo) . 



Siegfried Losensky 

Wachtersbach 74 

D 6114 Groe-Omstadt 

My --SAMSON 65-- is finished and in the meantime I have been 
busy m w^rltlfig with hlie t& leartt mtiS computiRf. 

SAMSON works n^ow very well, but in the beginning I had one not so 
very fine hardware-problem and it needed a long time of patience 
artdi defeet-JMiarch to solvtt It* Here is tny experience wMlcIt I want 
to give to other S AMSON-f r i ends : 

Every time I switched line-power on, I had to do it several times 

to :fet power wons^reset* Sowetimes the first switching was staypci^ssf nl ^ 

but mostly the third, fourth or even the tenth one. When 1 fLoally 

had the power-on-reset , SAMSON worked without problems. 

To find %hm defect I changed on CPU-Card: CI thre^ times, €2, 

IC20-74LS05 into 74LS06, the processor and some other IC's 

step by step, but all without result. At R17, R18, R19 and Dl 

1 s#ld:vr«d 'C»:t2:%-#a# side to -test tlt'e-ai' • &ltm vithtsmt result. 

Then a little bit by accident I found the malfunction. 

Because I wanted to have roy SAMSON more perfect, I decided to change 

the synchr<@ttis«ti&fi o-f CPU- and VDO— Card ««t described at 

Elektor-Computing No. 2. Therefore I connected IC7(N3)-pin 13 on 

CPU-Card to pin 30c of the 54-pole-connector and removed the 

4-MNs*#t3artz. From that tl»e X had no l,QEi9«r tfete problem described 

above. The connection of pin 12(IC7) instead mt .pin 13 

brought no positive result. 



PflBT Z 



! DISKETTE COPIER MERSION 2*2 i 

5 Version 1.0 : original 

; Version 2.0 : mod 0/Okt.S5 

; Version 2.1 : code error 

; Version 2.2 ; return->basic 

? 

: MODIFIED FOR SERIAL SYSTEM 

5 FOR DOUBLE -SIDED DISK-DRIVES 

n 
H 

; V AL I D DR I VE-CONF I GUR AT I ON : 
; jDrive 1 side A and 1 
; Drive 2 si die C aad 



, Attention : 

I • Changes have to be made, if 
I sides A and B on etfif-f^— 
ent Disk-Drives ! S 

W a .1 f q a n g T i e t c: hi 
Eilenburger Weg 11 
6S00 Mannheim 31 

DECEMBER 19S5 



3410 














■J 


3420 






5 


WRITE DATA 


TO TRACK ZERO 




3430 






l> 






3440 
















3450 






n 












3DDA 


206326 


SUB3 


JSR 


HOME 






3470 


3DDD 


205427 




JSR 


LDhlEAD 






3430 


3DE0 


AD00C0 


LAB04 


LDA 


DRA 


;GET DISK STATUS 




3490 


3DE3 


10FB 




BPL 


LAB04 


5 LOOP TILL INDEX 


END 


3500 


3DE5 


AD00C0 


LAB05 


LDA 


DRA 


;GET DISK STATUS 




3510 


3DE8 


30FB 




BMI 


LAB05 


5 LOOP TILL INDEX 


START 


3520 


3DEA 


A9FC 




LDA 


#*FC 


;SET PI A TO MODE 


TO 


3530 


3DEC 


2B02C0 




AND 


ORB 


; WRITE 




3540 


3DeF 


8D02C0 




STA 


DRB 


5 DATA TO DISK 




3S50 


3DF2 


AD00C0 


LAB06 


LDA 


DRA 


;GET DISK STATUS 




3560 


3DF5 


10FB 




BPL 


LAB06 


5 WAIT TILL INDEX 




3570 


3DF7 


A201 




LDX 


#*01 








S0F9 


207A26 




JSR 


DELAY 


;WftIT SOME CYCLES 




3590 


3DFC 


A625 




LDX 


ZR05 


;READ 3 BYTES OF 


TRACK 


3600 


3DFE 


20C227 




JSR 


BYTWRT 


: ZERO-HEADER TO DISK 


3610 


3E01 


A626 




LDX 


ZR06 






3620 


3E03 


20C227 




JSR 


BYTWRT 






3630 


3E06 


A627 




LDX 


ZR07 






3640 




20C227 




JSR 


BYTWRT 






3650 


3e0B 


A000 




LDY 


mm 






3660 


3E0D 


BIFE 


LAB07 


LDA 


(MEMLO) 






3670 


3E0F 


AA 




TAX 








36S0 


3E10 


20G227 




JSR 


BYTWRT 






3690 


3E13 


C8 




I NY 








5t00 


3E14 


mF7 




Em 


LAB07 






3710 


3E16 


E6FF 




INC 


MEMHI 


;NEXT PAGE 




3720 


3E18 


C627 




DEC 


ZR07 


DECREMENT PAGE-COUNT 


3730 


3E1A 


D0F1 




BNE 


LAB07 






3740 


3E1C 


AD00C0 


LAB08 


LDA 


DRA 


;GET DISK STATUS 





7 



37S0 3E1F 30FB 

376B 3E21 A983 

3770 3E23 206327 

378® 3e2fe 60 

3790 5 

3800 S 

3gl@ 5 

3320 5 

3830 5 

3840 ; 

3850 5 

3860 3E27 205427 SUB4 

3Q7@ W&SPi ■2t8iD27 

3880 3E2D 202E27 

3890 3E30 206C3E 

S*?W@ S€33 '¥020 

3910 3E35 8525 

3920 3E37 206C3E 

3930 3E3ft 9026 

3940 3E3C 8526 

3950 3E3E 206C3E 

3960 3E41 8527 

3970 3E43 AA 

3980 3E44 A000 

3990 3E46 is^901 I^S¥TE 

4000 3E48 2C10C0 STACIA 

4010 3E4B F0FB 

4020 3E4£) ABlim 

4030 3E50 DIFE 

4040 3E52 91FE 

4050 3E54 F004 

4060 3E56 A9 

4070 3E57 00 CMPFL2 

40®0 3E5B F009 

4l,a90 3E5A C8 COflPl 

4100 3E5B D0E9 

4110 3E5D E6FF 

4120 3E5F CA 

4130 3E60 D0E4 

4140 3E62 60 RETA 

4150 3E63 A62B C0MP2 

4160 3E65 9A 

4170 3E66 A900 

4180 3E68 48 

4190 3E69 4C5441 

4200^ ; 

4210 5 

4220 5 

4230 ; 

4240 3E6C 18 SUBS 

4250 3E6D AD00C0 WAIT 

4260 3E70 1009 

4270 3E72 AD10C0 

4280 3E75 4A 

4290 3E76 90F5 

4300 3E78 AD11C0 

4310 3E7B 60 RETB 

4320 ; 

4330 ; 



BMI LAB08 5 WAIT TJLL tmmt ' 

LDA #-*S3 ; RESET WRITE MODE 

JSR UNLOAD ;AND UNLOAD HEAD 
RTS 



READ DATA FROM TRACK ZERO 



JSR LDHEAD 

jm 11MDEX ?D0 AN INDEX TEST 

JSR INACIA ; RESET AC I A 

JSR SUBS 5 GET FIRST BYTE 
BCC RETA 

ST A 2R05 

JSR SUB5 ;GET SECOND BYTE 
eCC RETA 
ST A ZR06 

JSR SUBS ;GET THIRD BYTE 

STA ZR07 5 PAGES TO READ 

TAX 5 SAVE IT FOR LATER USE 

LDY #*00 

LDA #:t01 

BIT CACIA lee-T AC I A STATUS 
BEQ STACIA 

LDA DACIA 5 GET BYTE AND PUT IT 

CMP (MEMLQ) ,Y ; COMPARE 
STA <MEMLO),Y ; INTO MEMORY 
BEO COMPl 
. BY I E ■4rA9 
.BYTE *00 
BEQ C0MP2 

i.iMi ^mnr BYTE 

BNE RBYTE 

INC l«fEMHl jNEXT PAGE IN MEMORY 

DEX 

BNE RBYTE 
RTS 

LDX ZR0B 'jGET STACKED INTER 
TXS ; UPDATE RETURNADRESS 

LDA #*00 
PHA 

JMP MESERR ; ERROR MESSAGE 



CLC ;GET A BYTE FROM DISK 

LDA DRA ;GET DISK STATUS 

BPL RETB ;RETtJRI*# IF INDEX 

LDA CACIA ;GET ACIA STATUS 

LSR A ; RECEIVER BIT IN CARRY 

BCC WAIT 5 LOOP TILL REC. BUF 18 FULL 

LDA DACIA ;GET DATA BYTE FROM ACIA 

RTS 



s 



E^ B IBi D 



4340 

4350 

4360 

4370 

4380 

439£9 

44i3i?) 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4 o 1 0 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4 o 5 0 

4860 

4870 

4880 

4890 

490® 

4910 

4920 



3E7C 
3E7D 
3E7F 
3E80 

3E32 
3Ea3 



m 

A522 
18 

6901 

D8 

C523 



3UB6 



3E86 
3 £87 
3ESS 
■i E 8 f -i 
3Eo(J 
3E8D 



38 
F8 

E90 1 
8522 
L)8 
60 



3E8E 
3E91 
3E94 
3E97 
3E99 
3E9B 
3E9D 
3EA0 
3EA2 
3EA4 
3EA6 
SEA 9 

t f-t o 

3EAD 
3EB0 
3EB 1 
3EB3 
3EB5 
3EB7 
3EE<9 
3EBC 
3EBD 
3EBE 
3EC1 
3EC2 
3EC4 
3EC6 
3ECa 

3ECD 
3ECF 



20BC26 
201D27 

202E27 
A900 

f~\ cr f~t /•■• 
O .cl M 

E62A 

206C3E 

9060 

C976 

D0F7 

206U3E 

C52A 

D0F5 

206C3E 

A W 

A429 
C62A 
D006 
A322 

C8 
8A 

99792E 

C8 

8429 
E62A 

A000 

A901 
2C10C0 

F0FB 
AD11C0 



SUBC 



SUB7 



LAB09 
SKIP 

LAB 10 



LABI 1 



LAB 14 



SED 

LDA ZR02 
CLC 

ADC #*01 

CLD 

CMP ZR03 
RTS 



5 TRACK UPDATi 
5TRfta<Ny«B JUST COPIED 

;NeXT TRACK 

; LAS T TRACK ? 



8EC 
SED 

SBC #*01 
STA ZR02 
CLD 
RTS 



;1. TRACK MINUS 1 DECIMAL 



READ 


DATA OF OTHER TRACKS INTO MEMORY 


===== 


— — ™- — — — 


: _-■ - - - 


JSR 


SETTK 


5 TRACKNUMBbK IS IN ALCu 


JSR 


INDEX 


•DO INDEX TEST 


JSR 


INACIA 


; RESET AC I A 


LDA 


#$00 


;SET FOR FIRST SECTOR 


STA 


ZR0A 




INC 


ZR0A 


;NEXT SECTOR 


JSR 


SUB5 


;GET FIRST BYTE OF TRACK 


BCC 


NOBYT 


; BRANCH IF NO BYTE 


CMP 


#4;76 


;IS IT A SECTOR HEADER 


BNE 


SKIP 


;SKIP TRACK HEADER 


JSR 


SUBS 


;G2. BYTE OF SECTOR HEADER 


CMP 


ZR0A 


;NEXT SECTOR ? 


BNE 


LAB10 


{BRANCH IF NOT 


JSR 


SUBS 


;GET S* -©¥TE <SECW LENiTH) 


TAX 




j P#SEfi TiO READ 


LDY 


ZR09 




DEC 


ZR0A 


!SET 0 


BNE 


LAB 1 1 


S FIRST SECTOR 


LDA 


ZR02 


; ACTUAL TRACK NUMBER 


STA 


BUFFER 


,Y ; STORE IT 


I MY 
TXA 




; NUMBER OF PAGES 


STA 


BUFFER 


,Y ; STORE IT 


I NY 




;NEXT PAGE 


STY 


ZR09 


;0F NEXT SECTOR 


INC 




5 NEXT SECTOR 


LDY 


#*00 




LDA 


#$01 




BIT 


CACIA 


sQET AC I A STATO© 


EEQ 


3UACIA 




LDA 


DACIA 


;GET BYTE 



9 



4930 


3ED2 


7014 




BVS PARITY 


; CHECK FOR PARITY ERROR 


4940 


3ED4 


DIFE 




CMP (MEMLO) 


, Y 


4950 


3ED6 


91FE 




ST A (MEMLO) 


,Y ? STORE IT 


4960 


3EDa 


F004 




beg:! LAB 12 




4970 


3EDA 


A9 




.BYTE *A9 


5 LOAD ACCU 


4980 


3EDB 


00 


CMPFLl 


. BYTE *00 


; COMPARE FLAG 


4990 


3EDC 


.-0 1 B 




BEQ LAB 13 


; DO NOT BRANCH IF Z=0 


5000 


3EDE 


C8 


LAB 12 


I NY 


;NEXT BYTE 


5010 


3EDF 


D0E7 




BNE LAB 14 


; PAGE TRANSFERRED ? 


5020 


3EE1 


E6FF 




INC MEMHI 


SNEXT PAGE IN MEMORY 


5030 




&h 




BEX 


;NEXT PAGE OF SECTOR 


5040 


3EE4 


D0E2 




BNE LAB 14 


;ALL PAGES DONE 




O tl. u, o 






BEQ LAB09 


;N0 THEN NEXT SECTOR 


5060 


3EE8 


20732D 


PARITY 




5070 


3EEB 


2 A 




.BYTE '*» Parity ** ', *00 


5070 












5070 


3EED 


20 








5070 




50 








5Cr70 


3EEF 


61 








5070 


3EF0 


7.2 








5070 


3EF 1 


69 








5170 
S®7S 
Si7® 


3EF2 
'30^3 
3EF4 


74 
7f 
20 








msm 


3EF5 


2A 
2A 








5070 


3EF7 


20 








5070 


3EF 8 


00 








mm 




A62B 


LAB 13 


LDX 7R0B 




5090 


3EFB 


9 A 




"j" y 


s UPDATE RETURN ADRESS 


5100 


3EFC 






1 DA ZR02 




!S1I«S 


3BFE 


43 




PHA 




5120 


3EFF 


4 C 5441 




1 1 1 11 Uw, i_) i 1 ■. 1 \ 




5 1 30 


3F02 


C62A 


NQBYT 






5140 


3F'#4 


F#02 




BEQ RETC 


5 IF ONLY 1 SECTOR THEN RET 


5 1 50 


3F06 


E629 




INC ZR09 


5 NEXT PAGE 


516&D 


3F0S 


60 


RETC 


RTS 




sirm 






9 






5 1 30 






a 






5 1 90 






n 

!• 






5200 






s 






5210 








WRITE DATA 


ON THE TRACKS > 0 


522((D 
S230 






« 
















5240 












5250 


3F09 


205427 


SUBS 


JSR LDHEAD 




5260 


3F@C 






L&X INfFF 




5270 


3F0E 


206A2D 


LAB i S 


JSR CRLF 




5280 


3F 1 1 


E8 




INK 




5290 




©D792E 




LDA BUFFER, 


X ; TRACK NUMBER 


5300 


3F 1 5 






BEQ LAB 17 


; ALL TRACKS COP I ED 


5310 


3F 1 7 


B62A 




STX ZR0A 


;SET SECTOR COUNT 


5320 


3Flf 


4B 




PHA 


! SAVE TRACKNUMBER 


5330 


3F1A 


20732D 




JSR STROUT 




5340 


3F 1 D 


54 




.BYTE 'Track ' , *00 


5340 


3FIE 


72 ' 









10 



5340 


3FiF 


61 










5340 


3F20 


63 










5340 


3F21 


6B 
20 










5340 




00 










5350 


3F24 


68 




PLA 




pGET IT 




3F25 


48 




PHA 




;SAVE IT A<3AIN 


5370 


3F26 


20922D 




JSR 


PRTAHX 




5380 


3F29 


68 




PLA 




5 GET TRACK NUMBER 


S3f@ 


mm 


20BC26 




jSR 


StTTK 


;MOVE MEiAD TO TR IN ACCU 


5400 


3F2D 


A62A 




LDX 


ZR0A 


; SECTORS 


5410 


3F2F 


A900 




LDA 


#$00 


5 BEG INN WITH 1, SECTOR 


S420 


3F31 


8D5E26 




STA 


SECTNM 




5430 


3F34 


EG 


LAB 16 


INX 






5440 


3F35 


BD792E 




LDA 


BUFFER, 


X ;GET NUMB OF PAG FOR THIS 


.S4S0 


3FS© 






BEQ 


LAB 15 


; TRACK 


5460 


3F3A 


B62A 




STX 


ZR0A 




5470 


3F3C 


8D5F26 




STA 


PAGCIMT 


;NUMB OF PAG FOR TR 




'3F3F 






INC 


SECTNM 




5490 


3F42 


20732D 




JSR 


STROUT 




5500 


3F45 


20 




.BYTE ' - ' 


,*00 




SF46 


20 










5500 


3F47 


20 










5500 


3F4a 


00 














A&SE26 




LDA 


SECTNM 




mm 


3F4C 


20922D 




JSR 


PRTAHX 






3P4F 


20732D 




JSR 


STROUT 








2F 




. BYTE ' / ' $00 


5540 


3F53 












5550 


3F54 


AD5F26 




LDA 


PAGCNT 


; PRINT NUMB OF PAGES 


S560 


3f|F57 


20922D 




JSR 


PRTAHX 




j_. -y ~. 


3i|-5A 


20E127 




J S K 


DBKWRT 


; WRITE A SECTOR TO DISK 


izr -•} f TV 
vJ ,J OVJ 


3F5D 


A62A 




LDX 


ZR0A 


; SECTORS ALL TRANSFERRED 


5590 


3F|5F 


P0D3 




BNE 


LAB 16 


5 NO THEN DO MEXT 


5600 


3F61 


4C6127 


LAB17 


J MP 


UNLDHD 


; UNLOAD HEAD AND RETURN 


5610 






m 

•f 








S620 






a 

•I 








5630 






;i 








5640 






5 








S650 






5 


DRIVE AMD DI^ TO COPY TO 


5 o (b 0 






5 














5 








i6S0 


3F64 


A52S 


SUB9 


LDA 


ZR08 




5690 


3F- 66 


3005 




BM I 


CHE3 


;DISC F|*^6 SET - NORMAL 


5700 


3F6a 


A521 




LDA 


2R01 




5710 


3F6A 


4C733F 




JMP 


CHE4 




5720 


3F6D 


A521 


CHE3 


LDA 


ZR01 


; WHICH DRIVE TO COPY TO 


5730 


3F6F 


C520 




CMP 


ZR00 


;IS IT DRIVE TO COPY FROM 


5740 


3F71 


D070 




BNE 


DRIVE 




5750 


3F73 


48 


CHE4 


PHA 




?SAVE DRIVE NUMBER 


5740 


3F74 


206A2D 




JSR 


CRLF 




S77S 


3F77 


20732© 




JSR 


STROUT 




5780 


3F7A 


0A 




.BYTE *0A,*0A 


5780 


3F7B 


0A 










5790 


3F7C 


49 




.BYTE 'Insert blank' *00 


5790 


3F7D 


6E 










5790 


3F7E 


73 










mm 


3F7F 


65 










5790 


3F80 


72 











PEg— J * — J I I g — B KEMMER 



5790 


3Fai 


74 




5790 


3F82 


20 




5790 


3F83 


62 




5790 


3F84 


6C 




5790 


3F85 


61 




5790 


3FS6 


6E 




5790 


3F87 


6B 




579C!i 


3FS8 


00 




5800 


3F89 


2073 


2D 


5810 


3Fec 


20 




S810 


3F8D 


64 




5810 


3F8E 


69 




5810 


3F8F 


73 




5810 


3F90 


6Bi 




5810 


3F91 


6S 




5810 


3F92 


74 




581.0 


3F93 


74 




5810 


3F94 


65 




S810 


3F95 


20 




58 10 


3F96 


2D 




5810 


3F97 


2D 




sei© 


3F98 


20 




5810 


3F99 


7JZ) 




5810 


3f-VA 


Ml A« 




5810 




/65 




5810 


3FVC 






5810 


3F9D. 


— r ~T 
/ J.* 




mm 


'SF9E . 


■20 




5820 


3F9F 


'3C 




5820 


3FA0 


52 




5820 


3FA1 


45 




5820 


3FA2 


54 




5820 


3FA3 


55 




5820 


3FA4 


52 




5820 


3FA5 


4E 




cr r*i 'n 


•.>r H o 






5820' 


3FW7 


■30' 




i:r r*^ '•i r% 
■..< c^ ii «J 


31" Ao 


3F 




Db.i^0 




i'li r>i 
00 




5830 


3FAA 


2040 




5840 
5850 


3FAD 
3FAE 


48 

20<-)i'i 


2D 


5860 


3FB1 


68 






-r I— y, f-i 






5B70 


I - -b jC. 


C9(3D 




tz' /"I r'i rvi 


3f B4 


D0F4 




5890 


5F1B6 


68 




5900 


3FB7 


4CE3 


3F 



5910 , 

5920 

5930 

5940 

5950 

5960 

5970 3FBA A528 
5980 3FBC 3005 
5990 3FBE A520 
6000 3FC0 4CC93F 
6010 3FC3 A520 



MESSB JSR STRQUT 

.BYTE ' diskette — — press ' 



. e YTE ' < RETURN > ? ' , *00 



TRY AG 



JSR INECHO 5 GET ANSWER 



PHA 

JSR CRLF 
PLA 

CMP #*0D 
BNE TRYAG 
PLA 

mtm,^ 



5 SAVE IT 



; IS IT A "CR" 

;W0 THEN TRY AGAIN 

HGET DRIVE NUMBER 



SUB 10 



CHES 



DRIVE AND DISC TO COPY FROM 
LDA ZR0a 

BMI CHE5 jDISC FLAG SET - NORMAL 

LDA ZR00 
J MP CHE6 

LDA ZR00 ; IS IT THE BmE. BRIVE 



12 



5 □ iS 



6020 3FC5 C521 
6030 3FC7 D01A 

mm wm m cm& 

6050 3FCA 206A2D 
6060 3FCD 20732D 
6070 3FD0 mt^ 
6070 3FD1 0A 
6080 3FD2 49 
6080 3FD3 m 
6080 3FD4 73 
6080 3FD5 65 

72 

mBiS 3FD7 74 
^60 3FDa 20 
6080 3FD9 6D 

0 0 S 0 -.5 \- I.) i'i 6 1 

6080 3FDB 73 
6080 SmC T4 
6080 3FDD 65 
6080 3FDE 72 

4>mm SPBF 00 

6090 3FE0 4CS93F 

6100 3FE3 20C629 DF<IVE 

I, ,140 spm 

fe|20 3FE9 206h2D 
6130 3FEC ADDB41 
6140 3FEF 85FE 
6150 3FF1 ADDA41 
6160 3FF4 85FF 
6170 3FF6 60 
6 1 80 ; 
6 J. 90 5 
62®0 5 
6210 ? 
6220 I 
l>230 ; 
6240 5 
6250 J 
6260 5 
6270 3FF7 BA COPY 
42S<3 3FFS 862B 
629® 3FFiPl 20BA3F, 
6300 3FFD A9FF 
6310 3FFF BDDB3E 
6320 4002 #©S73E 
6330 4005 A52D 
6348 4007 F006 

63St 4'@@^'' iia©.63e 

6360 400C 4C1540 

6370 400F 8522 ZERTRA 

6380 4011 20273E 

6390 4014 08 

6400 4015 207B41 2ERTRB 

6410 4018 20643F 

6420 40 IB A52C 

6430 40 ID F035 

6440 40 IF 8D7927 

6450 4022 20732D 

6460 4025 49 

miM 4»26 6E 



CMP ZR01 ;T0 WHICH TO COPY 

BNE DRIVE ;N0 THEN BRANCH 
PHA sSAVE IT 

JSR CRLF 
JSR STROUT 
.BYTE *0A,$0A 

. L-iYTE "Insert master ',$00 



J MP 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
ST A 
RTS 



MESSB 

SETDR'v 

HOME 

CRL.F 

TEMP2 

Me«LO 

TEMPI 

MEMHI 



5 DRIVE TO COPY FROM 



;SET POINTER TO FIRS" 
iFifEE RAM LOCATION 



COPY 



MAIN-ROUTINE 



TSX 
STX 
JSR 
LDA 
STA 
STA 
LDA 
BEQ 
JSR 
J MP 

r-^ "I" /\ 
I t-i 

JSR 



JSR 
JSR 
LDA 
BEQ 
STA 
JSR 
. BY 



ZR0B 

#;tFF 
CMPFLl 
CMPFL2 
ZR0D 
ZERTRA 
SUBC 
ZERTRB 
ZR02 
SUB4 

READ 
SUB9 
ZR0C 
LAB 19 
MAXTRK 
STROUT 
TE 'In it: 



; SAVE STACKED I NTER 
; STORE IT FOR LATER 
;ARRAHM mm TO COPV FVmi 



5 RESET 



:'ARE-MODE FLAG 



1 . TRACK TO READ 

IF 0 THEN SKIP TRACK 0 

ADJUST 1. TRACK TO COPY 

; RESET FIRST TRACK COUNT 
;READ TRACK ZERO 
5 DATA .ON TR 0 SAVE IT 
;READ ALL OTHER TRACKS 
; ARRANGE DISC TO COPY TO 
5 MAX TRACK NUMBER 
;MORE THAN TRACK ZERO 
5 SET fm TRACKS TO IN IT 



alizing — 



, $00 




6460 


4027 


69 










6460 


402 a 


74 










6460 


4029 


69 










6460 


402A 


61 










6460 


402B 


6C 










6460 


402C 


69 










6460 


402D 


7A 










6460 


402E 


69 










6460 


402F 


6E 










6460 


4030 


67 










6460 


4031 


20 










6460 


4032 


2D 










6460 




2D 










6460 


4034 


20 










6460 


4035 


00 










,|i470 








LDA 


ZR0B 


5 1. TRACK TO I NIT 


6480 


4038 


F012 




BEQ 


I N I TA 




6490 


403A 


A934 




LDA 


44*34 


5 MAX TRACK NUMBER 


6S00 


403C 


8SE5 ■ 




STA 


HSTTK 




6510 


403E 


206326 




JSR 


HOME 




6520 


404 1 


A52D 




LDA 


ZR0D 






mm 


2@iC'26 




JSR 


SETTK 


SMOVI HEAt) fO TRACK IN ACCU 


6540 


4046 


207227 




JGR 


I N I T 1 


; INITIALIZE THE TRACKS 


6550 


4049 


4C4F40 




J MP 


INITB 




6560 


404C 


20682^7 


IMITA 


JSR 


IIMIT 


; INITIALIZE ALL TRACKS 


6570 


404F 


A934 


INITB 


LDA 


#*34 


;SET FOR 35 TRACKS 


6580 


4051 


BD7927 




EiTA 


MAXTRK 




6590 


4054 


20&Sft2D 


LAB 19 


3mm 


GRLF 




6600 


4057 


A52D 




LDA 


ZR0D 




66 1 0 


40wJ -7 


(~ i'ft iTt 




T' J [ — r'l 


LcH 1 KL 












u vVr 


L.MtJjc.V£! 






/I trh En* i~ 


..:;! r:) 




I " L...r 




; WHO 1 Hc-Kt ANY Uh 1 H UN IK it) 


6o*i-0 


.■1 rift c" 1 — 

40.jH 


V(cjIi-.i _' . 




h*LL 






66S0 


4061 


20DA3ld) 




JSR 


SIJB3 


; WRITE ON TRACK 0 


6660 


4064 


A529 


LAB20 


LDA 


ZR09 


; ANY PAGES READ ALREADY ? 


6670 


4066 


D00D 




BNE 


LAB22 


; BRANCH IF VES 


6680 


4068 


20BA3F 






SUB 10 


; ARRANGE DISC TO COPY FROM 


6690 


406B 


207B4 1 






READ 


;READ ALL OTHER TRACKS 


6700 


406E 


A529 




LDA 


ZR09 


;PAGE COUNT 


6710 


4070 


F01B 




BEQ 


LAB23 


iiALL PAGES READ ? 


6720 


4072 


20643F 




JSR 


SUB9 


5 ARRANGE DISC TO COPY TO 


6730 


4075 


20732D 


LAB22 


JSR 


STROUT 




6740 


4078 


57 




.S¥T€ -'Hritinq — ' *00 


6740 


4079 












6740 


407A 


69 










6740 


407B 


74 






1 




6740 


407C 


69 










6740 


407D 


6E 










6740 


407E 


67 










6740 


407 F 


20 










6740 


4080 


2D 










6740 


4081 


2D 










6740 


4082 


20 










6740 


4083 


00 










6750 


4084 


206A2I3 




JSR 


cm.F 




6760 


4087 


20093F 




JSR 


SUBS 


1 WRITE TO ALL OTHER TRACKS 


6770 


40SA 


406340 




J MP 


LAB21 




6780 






f 








6790 


4080 


20732D 


LAB23 


JSR 


STROUT 





14 



6800 


4090 


0D 


6800 


4091 


0A 


6810 


4092 


44 


mm 




6F 


6810 


4094 


20 


6810 


4095 


79 


mm 


4®f6. 




6810 


4097 


75 


6810 


4098 


20 








6810 


•^09A 


69 


6810 


409B 


6B 


6&ilB 




6S 


6810 


409D 


20 


6810 


409E 


74 


6§1€ 






o 8 1 0 


40H0 


20 


6810 


40A1 


63 


mm 




6F 


6810 


40 A3 


6D 


6810 


40 A4 


70 


6810 


#0#5. 


61 


6810 


40 A6 


"7 


6810 


40A7 


65 


6810 


40A8 


20 


6820 


40A9 


20 


6820 


40 A A 


74 


6820 


40AB 


68 


6820 


40 AC 


/ CL" 


6820 


40AD 


20 


6es0 


40AE 


64 


6820 


40AF 


69 


6820 


40B0 


73 


6821 


40B1 


63 


6820 


40B2 


■73 


6820 


40B3 


20 


6820 


40 &4 


28 


6820 


40B5 


59 


6820 


40B6 


2F 


6820 


40B7 

40 BE) 


4E 

29 


6820 
6820 


40B9 


20 


6820 


40BA 


3F 


6820 


40BB 


20 


6820 


40BC 


00 


6830 


40 BD 


20C53C 


6840 


40C0 


F001 


6850 


40C2 


60 


6860 


40C3 


20732D COMPAR 


6870 


40C6 


0A 


6870 


40C7 


0A 


6@10 


40C8 


43 


6880 


40C9 


6F 


6880 


40CA 


6D 


6880 


40CB 


70 


6830 


40CC 


61 


6880 


40CD 


72 


6880 


40CE 


69 


6880 


40CF 


6E 


6880 


40D0 


67 



,BYTE $:0D,*0A 

.BYTE 'Do you like to compe^re 



FLEASE i 
could 'nt you write 
in english ? There 
are many articles 
I would lilce to 
read in the maga- 
zine, but it's im- 
possible for a 
foreigii-ei? t®'- t-ead 
Dutch . 

"Dane" 



.BYTE ' the discs <Y/N) 



, *00 



I SET ANSWER 



JSR GETANS 
BE (3 COMPAR 
RTS 

JSR STRQUT 
.BYTE *0A,*0A 



.BYTE 'Comparing discettes — 



,^00 



15 



PE p— B J p ^ 



6880 


40D1 


20 










6880 


40D2 


64 










6880 


40D3 
40D4 


69 

_y —J. 
/ -J' 










6880 


40D5 


63 










6880 


40D6 


65 










6880 


40D7 


74 










6880 


40D8 


7^4 










6880 


40D9 


65 










&880 


40DA 


73 










6880 


40DB 


20 










6880 


40DC 


2D 










6880 


40DD 


2D 










6880 


40DE 


20 










6880 


40DF 


00 










6890 


■mm^ 






JSR 


CRLF 




6900 


40E3 


206A2P' 


- 


JSR 


CRL F 




6910 


40E6 


A900 




LDA 






mm'- 


•#®1© 


8522 




STA 


ZR02 




6930 


40EA 


A52D 




LDA 


ZR0D 




6940 


40EC 


F006 




BEG3 


ZERTRD 








•mBmm 




JSR 


SUBC 




6960 


40F1 


4CF740 




J MP 


ZERTRE 




6970 


4 01- 4 


202 73E 


/. L K 1 K \j 


JSR 


SUB 4 


;READ TRACK B 


6980 


40F7 


207B41 


ZERTRE 


JSR 


READ 




6990 


40FA 


A522 




l,..DA 


ZR02 


;GET LAST TR. NUMBER 


7000 


40FC 


48 




F'HA 




;SA'v'E IT 


rmm 


4®FD 


mw 




LDA 




;SET COMPARING MODE 


7020 


40 FF 


8DDB3E 




si A 


CMPFL. 1. 




7030 


4102 


8D573E 




S 1 A 


CMPFL2 




7040 


410S 


8f522 




STA 






7050 


4107 


206 43F 




J SR 


GUB9 


5 ARRANGE DISC TO COPY TO 


7060 


4 1 0A 


A52D 




LDA 


ZR0D 




7070 


410C 


F0#6 




BEQ 


ZERTRF 




7080 


410E 


20B63E 




JSR 


SUBC 




7090 


4 1 1 1 


4C1741 




J MP 


C0MP3 




7100 


4114 


20273B 


|,6flET«P 


JSR 


SUB4 


; COMPARE TRACK 0 


7110 


4117 


207B41 


COMPS 


JSR 


READ 


; COMPARE OTHER TRACKS 


7120 


411A 


68 




PLA 




;GET LAST TR NUMBER 


7130 


411B 


m 




pm 






7140 


4 1 1 c; 


C55'2 




CMP 


ZR02 


; IS IT LAST READ ? 


7 1 50 


4 1 1 E 


D034 




BNE 


MESERR 




7160 


4120 






CMP 


ZROC 


;LAST TR, COPIED 


7 1 70 


4 1 22 


F0 1 D 




BEQ 


MESGOO 




7 180 


4124 


CEDB3E 




DEC 


CMPFL 1 




7190 


4127 


CE573E 




©gc 




j^SBT COMPARE-FLAB 


7200 


4 1 2A 


20BA3F 




JSR 


SUB 10 


'^mnPtmE disc to copy #rc3W 


7210 


41 2D 


207B41 




JSR 


READ 




7220 


4130 


A522 




L©A 


ZR02 




7230 


4132 


A A 




TAX 






7240 


4133 


68 




PLA 






7250 


4134 


8522 




§TA 


ZR02 


; UPDATE TRACK FOR COMP. 


7260 


4136 


BA 




TXA 






7270 


4137 


48 




PHA 




;SAVE LAST TR.. NUMBER 


7280 


4138 


2064.3F 




JSR 


SUB9 


; ARRANGE DISC TO COPY TO 


7290 


413B 


EEDB3E 




IMC 


CMPFL 1 


; SET COMPARE-FLAG 


7300 


413E 


4C1741 




J MP 


C0MP3 




7310 


4141 


206A2D 


MESGOO 


JSR 


CRLF 




7320 


4144 


20732D 




JSR 


STROUT 





16 



/ OOKJ 


a. 1 d.7 


A 7 




-BYTE 'SOQd thru'.^OO 


/ 


A 1 ilCl 


AP 








*T i ^ 7 


Wl 








A 1 

*T 4. 










Zl. 1 d.R 








t OOlu 


A t ilP 
~' J. "TW 


7A. 






/ o-_«yj 


A 1 ^ n 

*r i. 


An 








A '1 ACT 


/ jC- 








A1 AP 


f %J 








*T A wlWJ 


(71(71 




I 




A 1 S 1 
*i* A *-J A 


L-j CD O r X 




.IMF' MESTRA 




*T A »«i*r 










11 1 "^7 






QYTP 'Error -found on ' . $00 






7^? 








4 1 


Tr? 

/ ^ 






7 -T (7| 


A 1 St*! 


AP 








A 1 










•r A 








/ .J' o 


A 1 sn 


A A 






7~: AOl 


A 1 i^IP 


AP 








*T A vjr 








7 '-'A (71 


A 1 A0 

1 i. Q U.J 


A!" 






7"!' Ala 


1 A 1 
H J. O X 


A/i 






/ OOKi 










/ O UJ 


^ 1 

t X O-...' 


AP 






7"^ ACT 


A 1 A4. 


AP 










00 








•4" 1. O O 


20732D 




J3R S"! HUUT 




A 1 AQ 


'':>{A 




EiYTE ' track ' .$00 






/ " 






7 • T R .f?! 


J 1 AFi 


-y .—1 






7"Tn[>1 


-il 1 AP 


A 1 








A 1 AH 

*T i OU 


A** 

OO 






/ ■..I'Ol'J 


A i Apr 


/ r: 
O .O 








^ 1 AP 

H 1 or 








7TDffl 


*+ J. / UJ 










*T i. / J. 


c" ■■-■i 




LDA ZR02 ■ • ' ■ 


7400 


4173 


20922D 




JSR PRTAHX 


7410 


4176 






JSR CRLF 




^ 4. / / 


6£i 






/not) 


^ J. / H 


A (/I 




RTS : BACK TO MAIN 


7453 






1 




"7 /I / r;i 
/ h6W 










"7 /I "7 










.'1 i'")t7( 










~T /I r-^ 












J 1 TP 


r"i 7 «J VJ 


op An 


1 OA #$00 


■-T r" 1 I ;\ 
/ ,.J J. «J 


H I / U 


1:3 '~> 0 

CD ^.J .Ul ^ 




QTA 7R09 " PAGE COUNT 


■~T '"■1 


n i '~7]Z~ 
H ]. / h' 


Ht 1 




TA y 


"7 1™ "T- ry\ 


*1- 1 O UJ 




1 nnp"? 

L_UiJr u::. 


QTA RI IPPPF? y •PTl 1 RHPFPR WITH 




■T 1 Q 'T 

■H- i. o -.:« 






J../ fIL .''v 


— i::r i:::' fTi 


*+ J. nH 


T'\ tTi A 






-r i::r / r.^ 


A 1 Q A 


orac; A'^7 








"4 J. o / 




ye sf^feif ■ 

ral^ A'-?l; r%r'. 


I'ZjR CI iRi, • ciPT FOFJ NEXT TP. TD COPY 


-7 i:;r r-i 




AO 




PHA s SAVE NEXT TRACK NUME<ER 


7bV0 


418D 


B046 




• BCS DONE ' " • - 


7600 


4 1 8F 


ADDB5E: 




LDA CMPFLl ; CaWP^Wfr-MODE ? 


7610 


4 192 


100F 




, BPL MESCtiP 


7620 


4194 


20732D 




JSR STROyf 



76312 


4197 


52 


7630 


4198 


65 


7630 


4199 


61 


7630 


4 19 A 


64 


7630 


419B 


69 


7630 


419E 


20 


7630 


419F 


00 


7640 


41A0 


4'::bi41 


7650 


41 A3 


20732D 


7660 


41A6 


43 


7660 


41 A7 


6F 


7660 


41 AS 


6D 


7660 


41A9 


70 


7660 


41AA 


61 


7660 


41AB 


72 


7660 


41 AC 


69 


7660 


41AD 


6E 


7660 


41AE 


67 


7660 


41 AF 


20 


7660 


41B0 


00 


7670 


4iBt 


.20732D 


7680 


41B4 


54 


7680 


41B5 




7680 


4tB6 


6t 


7680 


41B7 


63 


7680 


41 08 


61 


7680 


41B9 


20 


7680 


41BA 


00 


7690 


4 IBB 


68 


7700 


41BC 


48 


7710 


41BD 


20922D 


7720 


41C0 


206A2D 


7730 


41C3 


68 


7740 


41C4 


8522 


7750 


41C6 


208E3E 


776® 


4 iS9 


A5FF 


7770 


4 1 CB 


690C 


7780 


41CD 


CD0023 


77910 


4iD0 


90B7 


7800 


41D2 


4CD941 


7810 


41D5 


68 


7S20 


41D6 


206 1 27 


7830 


41D9 


60 


7S40 


4 IDA 


48 


7850 


41DB 


00 


7860 







.BYTE 'Reading ' ,*00 



MESCMP 



JMP MESSTR 
JSR STROUT 

.BYTE 'Comparing ',*00 



MESSTR 



JSR STROUT 

.BYTE 'Track ' ,*00 



PLA 


;GET TRACK NUMBER 




PHA 


;SAVE IT 




JSR 


PRTAHX SPRINT IT 




JSR 


CRLF 






PLA 




GET IT AGAIN 




STA 


ZR02 


ACTUAL TRACK NUMBER 




JSR 


SIJB7 


READ A TRACK INTO RAM 




LDA 


MEMH I. 


GET LAST PAGE USEZD 




ADC 


#*0C 


, ADD 12 PAGES FOR SAVET 


^ 


CMP 


HIRAM 


.COMPARE TO HIGHEST RAM 


PAGE 


BCC 


NEXTRK 


iREAD NEXT TR IF ENOUGH 


RAM 


JMP 


RETF 






PLA 


; UPDATE STACK.POINTER 




JSR 


UNLDHD 






RTS 








.BYTE *48 






.BYTE *00 






. END 







DONE 

RETF 
TEMP 1 
TEMP2 



#«»#» ***** 

**»»* ELEKTUUR JUNIOR-COMPUTER HRRDWORE ***** 

If-'lNp^H'' # -K- ^ # # 

»♦•«» INTERFfiCEKfiORT EN GEWUZIGDE VDU-KfifiRT ♦**»# 

***** ***** 

*««*« Door : Pieter de Visser, Veldhoven ***** 

***** ^^^^^ 

#»**»»****«***************************«*»##»»#»1HHHHHHHHHHHHHHHHHHHHHHt^HHtjt^Hj^^^Ht^t 
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Het hart van mijn systeem is de 
Elektuur Junior-computer. flan de 
PIfl- connector zit een flpple- 
CDapatible cassette-interface met 
lYiotorsturing. flan de uitbreidings- 
connector zit een interface met 
adres- en data-buffers, en een 
scfiakeling voor het opheffen van de 
achtvoudige adres-serinq, en ROM in 
heft geheugenbereik *400 - *17FF. 
Deze interface-kaart biedt wel de 



fflogelijkheid om op de twee 64-polige 
connectors een 16K ROM-kaart van 
Elektuur en nog een, van wat extra's 
voorziene, VDO-kaart te plaatsen. 
Deze extra's bestaan uit een in 
plaats van een 2732 

karaktergenerator gebruikte 6116 ROM 

- zodat ik 256 programmeerbare 
karakters heb (formaat 8*8 pixels) 

- en een paral lelaansluiting voor 
een ASCII-keyboard. 



_ Hi ZZI LJ- MZZ^ 



JUNIOR BUS 



2 'CONNECTOR 




o 300 



US; M or tSe NbRMAAI. NIET AANWE2IC I EXTRA DRAADBRU6I 
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KEIMMEIR 



^SttM 



PQSVflL 



Minmttiiiti-iiH ' 



wmmim 



1 frms Raai jtakers 
ItOMversestraat 87 




: JUNIOR Met interface-kaart en 4 K-byte RM vanaf 
ad res 2000 of vergelijkbaar systeet. 



Is w it populariteit van een gebruikersprograiM aooen afeeten aan het aat^l 
igina'i dat DE £502 KENNER er aan besteedt, dan staat het schaakprograiM vtn 
MO Kortekaat eet stip op de eerste plaats. Verwnderlijk is dat niet, Nant 
Itti Khipt loveel voldoening als een kotputer aan zijn verstand te brengen hoe 
m inttlligent bordtpel te ipelen. Zo denkt Um schrijver er in ieder gevil-iwr 
I dat anderen daarin tee kunnen gaan, bli^kt tiel uit de uitbreidingen tii<'i#' 
Iddels het daglicht hebben aanschouHd : het progratM is geschikt geeaakt voor 
I JUNIOR, er is een openingsbibliotheek beschikbaar en er is een routine ont- 
Ikkeld die de denktijd bekort. 

i ligt voor U een positionele evaluatie-routine - Posval - waareee het schaak- 
rooraMU een deel van zijn beslissingen op betere gronden kan neaen. Daarnaast 
reft U een sehaakeonitor aan; een programia dat oorspronkelijk werd ontMikkeld 
t het testen van Posval te vergenakKehjken, Mar dat ook overioens het bedie- 
ingsaeeak vergroot. Ik zai aijn verhaal beginnen eet een suggestie oe de denk- 
i jd te bekorten en tevens de malysedieiAe V09P seetige »itua{ies Mat te verlw*- 
in, aaar eerst een vooraf 

beo Kortekaas heeft zijn schaakprograitiiia geschreven onder de voorwaarde dat het 
iet eeer dan 1 K-byte aan geheugen in beslag inocht neeen. In dat licht gezien 
in nen alleen eaar ttaardering voor zijn prograana hebben. Het schrijven van een 
led Herkende zettengenerator is op zichzelf al geen sinecure en als dat ook nog 
nder een dergelijke beperkende vooniaarde eoet gebeuren, Hordt het een bijna 
ntogelijke opgave. De kanttekeningen die ik hierender zai naken, «oeten dan ook 
Bzien Horden als feiteliike konstateringen over de schaaktechniese eigenschap- 
sn van het prograau. zij heMpn^tMr Ali^^ bedoeling de fn^moAitae 
pestatie te bagatelliseren • ( ?. 



% nog een! 



t hier qepresenteerde ontwikkelingen zijn ontitikkeld op een standaard-JUNIOR, 
itgebreid eet de interfacekaart en een geheugenkaart ; een heel eenvoudig sys- 
eee vergeleken eet de tegemraordig gangbare nardtiare. De reden hiervoor is dat 
H schrijver, ondanks het geeak van beeldschernen en full-screen editors, nog 
Itijd de voorkeur geeft aan een schrijfblok en een potlood. Het prograima is 
odoende direkt in machine-kode geschreven. 

nze vereniging stelt vanzelfsprekend een aantal eisen aan de vorm van een pu- 
likatie. Een daarvan is dat het is opgeiKaakt in de vorin die U gewend bent aan 
B treffen in DE 6502 KENNER. Het was daaroa nodig on het prograuM achteraf oa 
s Herken naar een assetbly-voriii. Dat is een enor* werk getteest dat gedurende de 
aatste twee jaren als een joint-venture is uitgevoerd door Uw schrijver en 
illee van Pelt, aan Mie grote dank verschuldigd is omdat zonder zijn enthousi- 
sae en uithoudingsveraogen het prograiina nooit publikatierijp geworden zou 
ijn. 0* een indruk te oeven : als alle proefuitdraaien op elkaar qelegd worden, 
s de stapel biina viir centimeter dik. Alleen al de kosten van de postzegels 
rukken als een loden last op het budget van de vereniging, dus als de kentnbu- 
ie binnenkort verhoogd Nordt, Meet U Naar het aan ligt. 

iNKIUO EN flNfllYSE-DIEPTE 

n zijn oorspronkelijke uitvoering heeft het prograadia ongeveer drie ainuten no- 
ig OA tot een beslissing te koaen. De subroutine Quick versnelt het denkproces 
anzienlijk - bij aij met ruia 20* - aaar het is aogelijk oa nog veel aeer tijd 
e winnen. 

et schaakprograaaa Herkt aet twee linieten - aax I en aax II - die de zoekdiep- 
e en daaraee de denktijd vastleggen. 

ersiapeld voorgesteld : aax II begrenst de zoekdiepte in stellingen Maarin een 
tuk wordt gestagen en aax I doet dat in de overige oevallen. 
ax I heeft in het schaakprograaaa de waarde 2 ply. m aag aen in beginsel beter 
chaak vertiachten naaraate de zoekdiepte wordt verhoogd, aaar de praktijk heeft 
itgeiezen dat een verandering van aax I schaaktechnies Heinig invloed Heeft. In 
ger dan 90K van ite stellingw die ik heb onderzocht koiit het schaakprograaaa 



A ^rite is a eovable dis-play object. Its 
iMape is different froa a character or 
graphics pixel, due to its independerne fPM 
ether screen activity, fl true sprite can Biie'^ 
over any background text ■«! jpmijgs Nitnout 
disturbing the back-grouni;' If fliilis usual- 
ly faster and easier to prograt than a bit- 
tapped (high-reso-lution) shape. Machines 
Nitn sprites usually include features such as 
'Collision-checkir^ (have one or eere sprites 
touched each other?) and variable height and 
wdth for the sprites. The Atari 800 has four 
mt^ a^tes, callei^'aiiifift^, and four tiny 
tiS<4!r ' sprites calw%iiilits' (the eis- 
siles can be coebined to ftm t fith playerl. 
They can each be eight bits (iits) wide, iHit 
up to 256 lines high. T^w use of players it 
net lieited to gaaes. They can also fora bor- 
(ters, «pcial tall characters, cursors, or 
im a mc^Hioard. Other aacrtines that have 
sprites are Wm-GUtmimM' 'ImH^'h eight 
24*21 sprites »ftli> tMt^e^ tWpMMIity and 
the TI-99/4fl. 

Froa! Coapute! issue 44, vol. 6, no.l, Jafe 
1984. ^ 

Hill Ctti^ri^ TMi» 

De 5C 146818 geeft de gebruiker de ao|eli||r 
heid uit 3 verschillende klokfrequenties te 
kieien! 4.194304 MC, 1.048576 3^ 32.763 
KHz. Hierbij geeft de leverancier op dat de 
'^ipgeRMim strooa bij de hoogste freguentie 
4 afl en bij de laagste +/- 100 aicro- 
flupere bedraagt. Cki de klok een langere tijd 
zonder bij laden van de Nicad-akku te kunnen 
gebruiken spreekt het vanzelf dat dus de 
laagste klokfrequentie gekozen wordt (32.768 
KHzI. 

Hierbij koat echter een probleea oa de hoek 
kiiken. De schakeHng a'.s gepubliceerd vondoa 
hei kristal werkt priaa voof de beide i^ogere 
frequenties, doch voor de lage klokfrequentie 
niet. Na wat uitproberen ben ik op de Hieron- 
der volgende schaHe'ing gekomen. 
Door geSrui'K te aaken van 3 MiCd, alien van 
elk 110 aax. kan ik de klok m 
aaxiaaal 30 dagen laten 
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at een en dezelfde beslissing, ongeacht de Maarde van «ax I. Daarbij dient dan 
ok nog opgeaerkt te Horden dat in de gevallen xaarin een verandering van tax I. 
el tot een andere zet leidt, er geen enkele garantie is dat die andere zet ook 
le betere is ! Er is Mel een verklaring voor dit fenoteen aaar die valt buiten 
let bestek van dit artikel. Uaar het hier ot gaat is dat een verlaging van aax I 
ot 1 ply Heinig invloed betft bp ite iiMlisiing teniijl de uitHerking op de 
lenktijd spektakulair is 1' #1 fNMliilhM^I|« ptr zet twert af to! nnder 
Ian 30 sekonden. 

lax II beperkt de zoekdiepte in stellingen Haarin een stuk Hordt gestagen tot 3 
ily, de tiniaale zoekdiepte Naarbij nog enigszins verantMOord schaak te verwach- 
en is. De gevolgen van een zet die verder Heg ligt dan de derde ply - achter de 
lorizon, zoals dat heet - Norden door het prograiiaa niet Haarqenoaen. Het zal 
luidelijk zijn dat het progranoa een slagzet beter kan beooraelen naaraate de 
lorizon verder weg ligt, aaar ook dat het dan langer duurt oa die horizon te be- 
fiiken. De tijd die geNonnen Hordt door Max I te verlagen kan voor een deel Nor- 
len geinvesteerd in een verhoging van Hax II, die op 4 en eventueel op 5 ply kan 
lorden gezst. De beste resultaten lHMUt hel; orMrapa in aijn teststeningen aet 
lax I = $m-Wl» - iT'fMiMillt Mlf#l^ Ma^ m^ l a i i i rtBt ii alTv 

lUUt. ., t, 

le veranderingen kunnen Norden ingevoerd door in de brake-routine op di tmiHiia 
\KSC en 2M0 net X-register te laden aet de nieuNe waarden. 
lier «oet itel opgeaerkt worden dat schaakzetten niet op dezelfde aanier afgehan- 
leld Horden als slagzetten. Het progra««a ziet daardoor af en toe aat in een 
iver het hoofd. 

la het aanbrengen van de veranderingen verdient het overigens nog steeds aanbe- 
reling oa de subroutine Quick te gebruiken. Quick blijft -itiMf ^IflMpiWlHl^ 
ijdsbesparing van on^veer 2W, 

iQsvak * 

Ichtergrond. 

In de bestaansreden van Posval te begrijpen, is het nodig oa te Heteri m 
lelke gronden het schaakprograaaa tot een beslissing koat. 
let schaakprograaaa heeft een eenvoudige beslissingsstruktuur in de vora van een 
trietraps-ADdel waarvan iedere volqende trap pas doorlopen Hordt als de vorige 
liet tot een beslissing heeft geleid. Het prograaaa omJerzoekt allereerst de »a- 
;eriele gevolaen van de zet in onderzoek door de waarde van de eigen stukken te 
'ergelijken aet die van de andere kleur. Dat ligt ook voor de hand, Mant in het 
ilgeaeen heeft de kleur aet het beste aateriaal ook de beste kansen. De zet die 
let beste of het ainst slechte aateriaal oplevert, wordt uitverkoren. Mochten er 
rerschillende 'beste zetten' zijn, dan kiest het prograaaa daaruit de zet die de 
leste psitie iffi)a«H., , Zijn ,tr ftn. i«HlMepit \«emhilleniie aogelijkheden, dan 
•ordt de Um mMm «m i^Meat^ tease ie «ttm. 

tet schaakprograaaa vat het begrip 'positie' op als de soa van de velden die be- 
itreken worden door de kleur aan zet. Een erg faeperkte visie, want in het sch^jdi 
ipel betekent 'positie' echt wel iets aeer. De tNeede trap van het beslissinp- 
lodel koat daaroa als eerste voor uitbreiding en verbetering in aanaerking en 
fat nu is de bestaansreden van Posval. 

>osval onderzoekt en waardeert - afhankelijk van de stelling op het bord - rt|ja 
JO aspekten en aanipuleert de variabelen N-ZET en 0-ZET (de beste zet tot (bm 
!oe en de ^t in onderzoek) zodanig dat de beste zet volj^s Posval gi^ozen 

Mfdt. ;. 

ki fsffrongi • ^ 

'osval is afgeleii vm ii fviliatie-funktie van het flaerikaanst 
WS8 4.S; ieii pearaaiM waaMiM <te etrste mm 9l,M.i^^. 
idtnweR Niii m M lange tijd vertierf heeft ^aafd In 

loernooien. 

leze aanpak - het werken vanuit «M liestaand prograaaa - bespaart de prograaMar 
ietterlijk jnren testwrk. Het grate problece van uHicre evaluatie-f unlit ie is 
bmn het vlmlen van de jaiste verhouding tuswn fwA ln^ang vm de verschilien- 
ie eleaenten die in de beoordeling worden betrokken. Oaak is die juiste 
«rhouding alleen aaar te vinden aet een trial en error aethode; vooral veel 
irrer. Een ia de prj^ijk bapmii sttlsel, is dan een fliirice stmin in de mi^ 




Sendyour articles and procra* listing to 
the tSitorial Office, c/o Mr. H.L. van Pelt, 
Jacob Jordaensstraat 15 NL-2923 K(, Kriapwi 
aan den IJssel, The Netherlands. 

Our aeaber Dick Uittenbosch discovered not- 
printed-lines in the article "SRflPHICS IM 

Dec. 1985. 

The prograaa will run 
the following lines! 




131 INTMUL LDfl #0 
329 LDX IH 

395 JSR KOVRI 



Yfl --> FflC 



tPle*5e^ accept ow mHm !m t*if .^^Ifi^r, 
sion that eottid MfiiH % edmi^^ mm. 
off. 

Converting tokenized Basic into regular Basic 
for C-64 



Most computers store Basic stateaents and 
coaaands as tokens. R conitand such as PMm 
(five characters, or bytes, long) is conver- 
ted into a nuaber (one byte) which the cotpu- 
ter can later understand to aean PRINT. This 
saves aeaory space. As you enter a Basic 
rograa, it is coapacted into tokens. Regular 
'asic is tokenized Basic, but if what you 
need is a file that contains every letter of 
every coaaand in ASCII, there is an easy way 
to do this in Coaaodore coaputers. Hits the 
prooran in the co^Mftin^«NWfy,- -ffi lil 
rAlIowing lines: 



8,2,'proSFipi «Wi.",^'!08}2JJl|ST . 



You CM» insert the naae of the file you would 
like created instead of "progra* naae". Af|§n' 



typing the lines and hitting RETURN, you wn*' 
have a sequential file on your disk tnat mm 
be read by aost wordprocessors. All the let*- 
twrn.M mimte.9i¥^ as PMHi Mil}, Im imm- 



aJPERTflre on the C-16 

Fred Behringer, Muenchpn 

One difficulty which I wscountePKl when ex- 
ploring ay newly-bought iHf lieliilly, I've 
bought two because they were so extreaely 
cheep: one for ae and one for ay son) was the 
slowness of its tape operation (I understand 
that this goes with 360 baud ?). 
Recently, in 'c't', a Genian coaputer jour- 
nal, there was an article by Hilli Groebel 
(c't 1986, issue 2) on the ubiquitous SUPER- 
TAPE prograa, this tiae for the which 
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ml heeft tot doel het schaakprograMa een zeker gevoel veor positie bij te 
•ngen. Het gaat daarbij niet zozeer o« rigoreuze schaakconcepten, als wel o« 
ivoudige vmstregels die iedere schaker toepast zonder er bij na te denken. 
ikken di«wn ontwikkeld te Norden; de koning tiwt verdedigd Horden; paarden 
mm ItwlMd op het cent rut, etc. etc. 

igmnstraktaur. 

ival is een voUedig zelfstandig werkend prograaaa dat door niddel van een 
ipele patch aan het schaakprogratM Hordt geknoopt. Posval taakt geen gebruik 
1 data die door het schaakprograMta Horden gegenereerd; deels vafwege nun te 
^rkte aard en deels ondat die itoeilijk bereikbaar zijn. 
sval heeft de gedaante van top-down ontwerp. leder soort stuk Mordt behandeld 
een hoofdsubroutine die de naan draagt van dat stuk. De hoofdsubroutines zijn 
tfstandig werkende prograMna-onderdelen die zich uitsluitend bedienen van sub- 
itines van een lagere orde. Alleen op het laagste nivo taken sonmige subrouti- 
s gebruik van elkaars diensten. Het geheel wordt bestuurd door een korte 
nfdroutine waarin tevens de feitelijke beslissing over de beste zet genoten 
rdt. 

te aanpak heeft twee duidelijke voordelen : het progratta blijft overzichte- 
}k, ongeacht hoe lang het wordt en het is togelijK dm iedere hoofdsubroutine 
zonderlijk te testen en eventueel te veranderen zonder de andere progratta-on- 
rdelen te beinvloeden. Daar staat tegenover dat het geheel wat langer wordt 
n strikt genoten noodzakelijk is. 

le hoofdsubroutines zijn volgens dezelfde grondgedachte opgebouwd. Na de initi- 
isering van enkele variabelen onderzoekt de subroutine Scan of het stuk op het 
rd voorkott. flls het stuk wordt aangetroffen, berekertt de hoofdsubroutine de 
litionale waarde die bijgehouden wordt in de stukteller. Nadat alle aspekten 
n dat ene stuk aan de orde zijn geweest, keert de hoofdsubroutine terug naar 
t begin o« te onderzoeken of het stuk nog vaker voorkott. Dat gaat zo door 
tdat Scan leedeelt dat er niet teer stukken van die soort ep het bord staan, 
stukteller wordt dan verwerkt in de waardering van (te sftflllxg mmn ik 
ofdsubroutine wordt verlaten. 

SttbrostinK van de laagste orde zijn verdeeld in drie groepen van vier. De 
rste ^retp - de rdiengroep - vervult de rekenkundige funkties optellen, veme- 
|vuldigen en delen. Deze subroutines geven het resultaat uit in een 16-bits 
Itaat. Die zestien bits zijn nodig ot voldoende te kunnen differentieren tus- 
ji de verschillende positionele aspekten en ot te voorkoten dat de tellers o- 
flopen. De tweede groep - de bordgroep - vortt een eenvoudige zettengenerator, 
e voor de snellopende stukken loper toren en date de zetaoaeMjkheden bere- 
nt. Deze doublure is nodig, otdat net nogal lastig is de velc'tontrole van een 
dividueel stuk als afzonderlijk gegeven vit het schaakprogratta te betrekken. 
vendien kunnen de subroutines van de bordgroep nu ook worden ingezet als 
nt roles op de funkties van de derde groep. 

derde groep - de stukgroep - levert eletentaire gegevens dip de hoofdroutines 
dig hebben ot efficient onderzoek te kunnen doen. ue subroutine ftfstand bere- 
nt de af stand tussen twee willekeurige velden. Eerste veld berekent het eerste 
Id van de liin waarop het stuk in onderzoek zich bevindt, gezien vanuit de 
lur aan zet. status I en Status II tenslotte, leveren infortatie over de pion- 
(u Status I over de pionnen op de lijn Maarep het stuk in onderzoek staat en 
lim II over de aangrenzende lijnen. 

Itntethedes. 

SVflL gebruikt in zijn analyses twee tanieren van rekenen, die in het prograt- 
kottentaar rekenformaat en bitkode worden genoetd. ■ ; 

het rekenfortaat wordt ieder veld voorgesteld door twee cijferitvsl^itHienr 
tot 8; B3 = 2,3 en F5 = 6,5 etc. In deze voorste'linq kan op een eenvoudige 
trier worden vastgesteld waar de rand van het bord zich bevindt; die is bereikt 
s in de koordinaten van het volgend veld een 0 of een 9 voorkott. 
t rekenfortaat laat ook toe relatieve betrekkingen tussen twee velden vast te 
ellen. Het begrip 'afstand' bijvoorbeeld, is gedefinieerd als de absolute sot 
n de verschillen tussen de horizontale en de vertikale koordinaten: dat is dus 
t aantal zetten dat de toren nodig zou hebben als hij taar een veld per beurt 
u togen opschuiven. In het rekenfortaat wordt de afstand bepaald door de hori- 
ntale en de vertikale koordinaten van elkaar af te trekken en de resultaten te 
tteren onder verwaarlozing van het teken. Zodoende speelt het teken van de ko- 
dinaten geen rol teer. D5 en B3 liggen tenslotte evenver van D4 af. 
tkodes warden vooral gebruikt ot ae pionnenfortatie te beoordelen. Een bit* 
de is een 8-bits Moord waarvan de bits de acht velde* van de lijn voarstellen. 



published in c't for almost any of the exis- 
ting bote cotputer systets). 
One tore difficulty I have with ty C-16 is 
its restricted tetory capacity which telts 
down 10 2K if high resolution graphics is 
used. Up to the present I've seen no chance 
for a note-brew tetory extension since the 
extension plug is of an exotic measure (can 
anyone help tev). 

So I worked over the supertape progra* of 
Willi Groebel in order to keep the memory 
requiretents as low as possible. I succeeded 
in working out four modified versions! 

(1) Supertape, 885 bytes frot the top of the 
tetory; 

(2) Supertape, residing in the screen color 
RAM, with the screen window restricted to two 
(!) lines: 

(3) Superloid (no PVE eperation), 450 bytes 

in Himet; 

(4) Superload residing in the screen color 
ROM, with the screen window restricted to 
half of its nortal size. 

If anyone is interested, please do not hesi- 
tate to write for a copy via the editorial 
office. 

The orglmitatiim «f t!»se supertape versions 
is: 

SAVE"", 7 = SAVE with 3500 baud 

SAVE"",7,128 = SAVE with 7200 baud 
S"",7,aaaa,bbbb = SAVE machine code frot tiie 
Monitor 

(with 3500 baud only) 
The programs worked upon by supertape start 
with a header. The header is always saved 
with 3500 baud. Upon LOAD"", 7 the header 
tells de system whether the program was saved 
with 3600 or with 7200 baud. 
Load tachine code programs with L"",7 using 
the Monitor. For verification there is VERI- 
FY"", 7 or V",7 (for the Monitor). 
The Cottodore tape operations retain still 
available if the device nutber 7, standing 
for supertape, is omitted. 
My experience is that it is almost impossible 
to save pro-g rats with 7200 baud without 
frequent occurences of ERROR messages whereas 
3600 baud seets to be o.k. 
I've also written a utility program by which 
I can relocate S'JPERIOAD to a^iy place in 
tetory (the problem with the C-lb assennbler 
(the Monitor) is that it cannot automatically 
adapt absolut operands after a relocation). 

VERAWDERINS Vft W UW_BASIC0DE-2 ROUTINE'S 

voor flpple-achtigen 

Frans Verberkt, Nijtegen 



Met reqel 210 GET INI$:RETURN was ik niet zo 
te vreden owdat op bspaalde totenten wel 
eens een toets (per ongeluk) ingedrukt had, 
voor dat het progratma deze routine afvroeg. 
Sots had dit desastreuze gevolgen. Vandaar 
dat ik deze regel snel veranderd heb in: 

210 POKE 49168, 0:KT I!»:RETLtRN 

Met POKE 49168,0 (*C0I0) wordt de input ge- 
cleard, d.M.z. dat vanaf dit totent pas een 
twts veriMcM nordt, d«s geen tisatnslitpn 
teer. 



23 



>t ffiinst signifikante bit ko*t overeen met het eerst veld van de !ijn gezien 
muit de kleur aan zet. De posit ie van het stuk wordt aangegeven door net over- 
•nkomstige bit op 1 te stellen, naarna alerlei aspekten van de for«atie kunnen 
irden onderzocht door de bitkodes te schuiven en er Booleaanse logika »ee te 
>drijven. Een voorbeeld : door de bitkode van de pion in onderzoek eenoiaal naar 
!cht5 te schuiven en een logiese flnd-operatie uit te voeren «et de bitkodes van 
! eigen pionnen op de aangrenzende lijnen, koitt POSVOL aan de Neet of de pion 
I onderzoek gedekt ftaat. 

ifsprttievmi. 

in het schaakproarama nog verder verbeterd Horden? Het antHoord luidt ja en 
>e. Ot net het laatste te beginnen : het prograitia zal nooit echt goed gaan 
shaken. Dat zit in de aard van het beest. De zettengenerator is van het brute 
irce type; dat Nil zeggen dat tot aan de Aaksinaal toegelaten zoekdiepte alle 
igelijke varianten Hbrden opgeitekt. Zodoende vindt het prograana altijd de 
>ste zet, fltaar die zekerheid Hordt duur betaald : uit tijdoverHegingen is het 
let Aogeliik on de zoekdiepte front genoeg te taken oa een goede partij schaak 
J het bord te krijgen. 

it Amerikaanse onderzoeken is bekend dat in een geniddelde schaakstelling neer 
in dertig voortzettingen ttogelijk zijn. flls we voor het rekengeaak even uitgaan 
m dertig, dan produceert de zettengenerator 30 stellingen op ply 1, 900 op ply 
27.000 op ply 3, 810.000 op ply 4 en 24.300.000 op ply 5 etc. De tijd die »et 
;t opttekken en vermerken van ai die stellingen is getoeid, neenit vrijMel even- 
?dig met het aantal toe. zodat het itel duidelijk zal zijn dat vanaf de vijfde 
[y zelfs een kocputer In d» pnriilMni kMl 4ls df beslissing binnen drie »i- 
iten noet vallen. 

!ch «ag pas behoorlijk schaak verwacht Norden als het prograauma in aiddenspel- 
jsities tot vijf a zes ply en in eindspelen einstens tot negen ply nag doorre- 
!nen. 0« een zettengenerator binnen een redelijke tijd zulke zoekdieptes te la- 
>n bereiken, noet niet alleen de diepte naar ook en net nane de breedte van de 
•ttenboon worden beperkt. Helaas is het praktisch niet uitvoerbaar on dit 
zhaakprogranna van een snoeischaar te voorzien. Oat zou zo ingrijpend zijn dat 
>t neerkott op het schrijven van een nieuM proqranna en ^t fciin veel Sieter ge- 
!uren aan de hand van nieuw op te stellen naatstaven. 

jch zijn er binnen de 'natuurlijke' grenzen van dit progranna zeker nog verbe- 
>ringen nogeliik. 

llereerst in PuSVflL zelf. Een positionele evaluatie-funktie is natuurlijk nooit 
:ht klaar. Het grootste genis in deze versie van POSVflL is het ontbrenen van 
3n tern 'aangevallen stukken', Noch het schaakprogranna noch POSVflL genereren 
?n lijst net aangevallen stukken. Daardoor Morden stellingen waarin neer dan 
;n stuk tegelijk staat aangevallen, nog weleens verkeerd afgehandeld. 
JSVflL zou ook uitgebreid kunnen worden net een term 'slagkracht' on tot uit- 
rukking te brengen dat bijvoorbeeld een loper die een stuk aanvalt sterker is 
Is de dane op dezelfde diagonaal staat. 

jnzelfsprekend zou een eindspel routine niet nisstaan. De nornen die worden 
inqelegd in het niddenspel, zijn vaak niet van toepassing in het eindspel. (tet 
indspel veronderstelt daaron zijn eigen evluatieroutine. 
Brder valt er ook nog te sleutelen aan het schaakprogranna zelf en vooral aan 
Bt eerder beschreven beslissingsnodel. Eigenlijk horen de nateriaalverhoudingen 
n de positionele waardering in een tern tot uitdrukking te worden gebracht. Nu 
Skijkt het progranna het nateriaal op de hoogst toegestane zoekdiepte terwijl 
i positie beoordeeld wordt op de eerste ply. Dat levert sons frikties op. 
B nanier van nateriaalwaardering biedt ook stof tot nadenken. Het schaakprogran- 
a beschouHt de stelling zoals, het die aantreft, als neutraal. Daardoor is het 
eneigd on tot afruil over te gaan, ook als het al achter staat. Het zou de 
oeite waard zijn on een fornule te vinden waarin een bestaand nateriaalverschil 
Dt uitdrukking wordt gebracht on te voorkonen dat het progranna gaat afruilen 
Is het al achter staat. 

Bt zijn naar een paar suggesties. Het is ongetwijfeld nogeliik on nog veel neer 
erbeteringen te bedenken naar het effekt zal altijd narginaal blijven. De hori- 
oneffekten die het gevolg zijn van de geringe zoekdiepte verdwijnen er niet 
oor. 

iteratuur: 

M.B. Innerzeel, Microprocessors van ft tot Z, net daarin een uitleg over de 
werking van de rekenroutines. 

Peter Q. Frey, Chess Skill in Man and Machine, met onder neer een beschrijving 
van de evaluatiefunktie van het progranna Chess. 

H.J. van den Herik, Coeputerschaak, schaakwereld en Kunstnatige Intelligentie, 
waarin tal van aspekten van het keapttterschaak aan de ordt koten. 



Maar na deze wiiziging liep routine 200 niet 
neer perfect, ondat deze progrannaregel juist 
wel een (vroegere) toetsaanslag verwacht, dus 
heb ik het hele zaakje veranderd in: 

205 BET IN$: RETURN 

210 POKE 49158, 0:BOTO 205 

Indien U deze wijziging ook wilt doorvoeren, 
adviseer ik U on oovenstaande regels in te 
tikken nadat het subroutineblok is klaar 

ezet (opFIi'l van het hoofdnenu). 

ave het progranna dan op cassette of disk. 
U heeft van nu af de nogelijkheid en vrij- 
heid, voordat U een Basicode-progranna in- 
leest: 

- of het originele subroutineblok te gebrui- 
ken 

- of deze wijziging te laden. 

Gebruik beide versies eens afwisselend en 
aaak voor Uzelf uit wat U gebruikersvriende- 
lijk vindt. 



6502/6510 VERSCHILLEN 

Gebruikers van een Connodore 64 conputer die 
belangstelling hebben voor progranneren in 
nachinetaal, weten nisschien met zeker of 
hun 6510 verschillen vertoont net de 6502. 
De 6502 en de 6510 zijn 'compatible', zoals 
dat heet. Beide processors gebruiken dezelfde 
instructieset (LDfl, STB etc. ) en adresseer- 
fornaat (low byte, high byte). Een boek over 
de 6502 lezen is eigcnlijK ook een boek over 
de 6510 lezen. 

De enige belangrijke verschillen tussen de 
twee processors zijn de bytes 1 en 2 van de 
6510. De 6510 naakt het Mfslijk on bank- 
switching toe te passen. 
De Connodore 64 heeft 20 K ROM, inclusief de 
Basic interpreter, Kernal, en Input/Output 
controle progranna' s. Er is ook onder deze 
ROM, 20 K bruikbare RAM. Je kunt de ROM uit- 
gaan en de RAM in door bank selecting van 
olokken geheugen. flls je dat zou willen, kun 
je je C-b4 omscha'^elen in een coinputer met 64 
K bruikbare RAM geheugen door al de ROM uit 
te schakelen. Maar le zou toch wel je eigen 
Basic interpreter willen gebruiken, net ope- 
rating system en ae I/O control progranna s. 
Zonder deze zou de conputer volledig bevrie- 
zen en zou je niet in staat zijn on Basic of 
nachinetaal progranna' s te schrijven of te 
runnen. 



Een paar problenen 



Stefan Sperling, Belgie 

Mijn toetsenbord, uitgerust net de ftV-3-2376 
houdt het achtste bit niet laag, naar brengt 
het ook hoog bij bepaalde toetsen. Door de 
draad die naar de conputer gaat (bit 8) aan 
massa te leggen werd het probleen verholpen. 
Een ander probleen kan de 16 MHz-oscillator 
zijn op de VDU-kaart die niet wil oscilleren 
net een kristal. naar wel net de condensato- 
ren en het spoe:tje. Dit euvel is te verhel- 
pen door de 74LS04 (IC 3) te vervangen door 
een 74C04 (dit is nodig on de oscillator te 
denpen), of IC 3 te vervangen door Nn 7A804. 
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De schaakmonitor is het programma dat de input/output voor zijn rekening 
neemt. Het schaakprogramma geeft in zijn slotroutlne de sturing van de 
displays en de kontrole over het toetsenbord over aan de schaakmonitor. 
Normaal gesproken, lichten alleen de adres-displays op; alleen aills in de 
buffer van de data-displays nuttige informatle staat - sen promotiestuk 
bljvoorbeeld - warden alie displays aangestuurd. 

Tijdens het verblljf in de' scteaiy^Kjftl'fcor, houcleri Qe nuraerieke teetsen 
hun gewone beMk#fiiS* De funkiielaetsen vervullen de volge®#fel*'dl s ' 

+ toets Verplaatst een stuk ©p het hQM. 

DA-toets Plaatst of verwijderd een stuk. 

AD-toets Maakt het bord leeg. 

PC-toets start een nieuwe partij. 

GO- toets wordt genegeerd. ■ ' 

De NMI-toets dient om in het schaakprogramma srelf te lcomen. 



Het is niet mogelijk om via de schaakmonitor ongeldige data in te voeren. 
ledere poging daaf t66 Ij^r^l ofwel genegeerd ofwel b^antwodrd met de 
melding 'CODE' . . : - ^ ^ 

Een stuk wordt verpltatBt ddef het -^m-ireltt "fen' ftet naar^veltf In te 

voeren. De monitor onderzoekt of de opgegeven velden geldig zijn 

en tevens of er een stuk op het van-veld staat. Een ongeldige invoer 

geeft de melding 'CODE'. 

Let wel : deze funktie verzet stukken buiten de partij om. Zetten 
die de speler in de partij doet, worden ingegeven via de NMI-toets. 

Voor het uitvoeren of terugnemen van een rokade, moet zowel de beweging; 
van de koning als van de toren worden ingegeven. 

Met de DA-toets kunnen stukken op het bord worden geplaatst of worden 
verwijderd. Eerst wordt het veld en daarna de kode van het stuk inge- 
gevea. F4-C5-DA plaatst een zwarte Idetr op P4 en F4-()0-DA waakt P4 
leeg. 

De monitor kontroleert ook hier de geldigheld van de opgegeven velden 
en stukken. Ongeldige velden en stukken leveren weer tfe meMlng 
'CODE' op. 

De AD-toets maakt het bord leeg waarna met behulp van de DA-toets 
een stelling ingegeven kan worden. Gebruik deze toets alleen als 
de komputer rainstens een zet in de partij heeft gedaan. Anders 
zijn de data die aangev«h «Efl'fee idi^nr am "Zet Is,- niet goed g®cie- 
finieerd. ' 

De PC-toets' zorgt voor het bfeglh van een nieuwe partij. Na PC verschijnt 

de melding 'FFFF' in de displays waarmee Thor vraagt welke kleur hij 
moet spelen. Na een 3 speelt Thor wit, na een 0 zwart. In dit laatste 
geval tonen de displays '0000' waarmee Thor aajigeeft dat hlJ wacht 
op de eerste zet f«ti Wit, iUiaaem to.ets^; dMi © 3:-'vm^WS.'^-^M0^4-. 
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GEBRUIK EN PRAKTIESE WENKEN 

Het hele programma ligt aaneengesloten in het geheugen vanaf hex 2000. 
Thor maakt gebruik van de zero-page en natuurlijk van de stack. Het 
is niet nodig om de data van zero-page in te toetsen. De PC-monitor- 
routine initieert de zero-page aan het begin van ieder parti j. 

Het startadEe® W®R tie monitor ligt op hex 2BAD. Eenvoudshalve is op 
hex 2000 een sprong naar dit adres opgenomen. Na het inlezen wordt 
het programma op hex 2000 gestart waarna een PC-kommando zorgt uoor 
het begin van de eerste parti j. 

Zetten worden op de gebruikelijk manier ingegeven; eerst het uanveld 
en dan het naarueld in de gewone notatie. Omdat het hexadecimale 
toetsenbord niet uoorziet in de letters 'G' en 'H' worden hiervoor 
de cijfers '0' en '1' gebruikt. 

Rokades worden ingegeven als de beweging van de koning. De korte 
rokade voor wit is dus El-01. De zet wordt ingevoerd met een NMI. 
Thor kontroleert de geldigheid van de ingegeven zet. Als de zet 
geldig is, wordt deze uitgeuoerd waarna Thor een antwoord bedenkt* 
Indien de zet om wat voor reden dan ook ongeldig is, deelt Thor 
dit mee door de boodschap 'CODE FF' op de displays te zetten. 
Mat en pat worden eveneens met deze boodschap aamif e^eveBi 
Tijdens de partij kan de stelling op de eerder beschreven wijze 
veranderd worden met behulp van de DA-toets en de + toets. 

Om een promotie in te geven, is het nodig de schaakmonitor te ver- 
laten door middel van een reset. De kode van het promotiestuk wordt 
op hex 0 geplaatst waarna de zet op de normale manier kan worden 
ingegeven. Omdat Thor wordt aangeroepen met een NMI, is het niet 
nodig terug te keren naar de schaakmonitor voor het ingeven van 
de pioTfiret. 

Promoties van Thor worden wel via de monitor afgewerkt. De kode 
wan het promotiestuk verschijnt in de rechter displayposities. 

In de hier gegeven listing zijn alleen Posval en de schaakmonitor 
aan het oorsprdfM^lijk ps^oqrmmm gekty^eltk de verfeifKiIifigmet 

Posval staat op hex 2B26. Het verblijf in Posval wordt aangegeven 
doordat de horizontale segmenten van het meeet rechtse display 
oplichten. .t 

Uiteraard kunnen de uitbreidingen 'Openingen' en 'Quick' die 
in nummef "M§>rmti '^'■•^■W&^^WiM' tijn gepubiiceerd, ook gebruikt 
worden. De patch voor het openingenprogramma moet worden aange- 
bracht op hex 2A44. 

Op Quick te kunnen gebruiken moet msn- twee patches invoeren : 

hex 280A (A9 CO 85 08) wordt JSR Quick - NOP 

hex 2876 (C9 41 FO IF) wordt Jmp Quick II - NOP. ' 

Om Thor te draaien met een ascii-bord en een beeldscherm^ zal men 
zelf de I/O routines moeten schrijven. Ueel heeft dat niet am het 
lijf. de volgende informatie is van belang : 
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Thor veronderstelt dat de zet van de speler te vinden is in de 
display-buffers hex FB (van-veld) en hex FA (naarveld). De 'G' 
wordt voorgesteld door een *0* en de *M' door eert '1*. 
Een eventueel promotiestuk moet op hex 0 staan. Thor wordt aan^ 
geroepen door een NMI of door een jump naar hex 2B7F. 

Als Thor zijn tegenzet uitgeeft of als er een foutmelding gedaan 
wordt, staat de informatie eveneens in de display-buffers hex FB 
eh FA. Een eventueel promotiestuk staat in Hex F9. 
Thor geeft de kontrole over aan de schaakmonitor door de jump op 
hex 2A88. Die sprong kan natuurlijk ook naar een andere output- 
routine wijzen. 

DEMNONSTRATIE-PARTIJ 



Om het verschll tussen hat oorspronkelijk schaakprogramraa en de versie 
met Posval te deraonstreren, volgt hier een partlj die werd gespeeld 
tussen Thor I en een 'echte' setiaifckOftputet*^ Mephlsto II* Qra^at ds 
demnonstratie bedoeld is de lezer er toe te brengen het progratnma ook 
in te toetsen, is uiteraard de moolste partij ultgekozen. 
D6 Mephist® sfeeit op mt laa^te nim, Dat is bet ml^ aiw wi^t^p 
Thor I al niet in de beginfase overklast wordt. Thor I speelt met 
de limieten max 1=1 en Max 2=3. 

De eerste zeven zetten ~halen beide prograimua'S ult hun openllJgsboek. 
Daarna moeten ze op elgen kracht verder. 

Na zijn stukteesn ontwikleeld te hebben, zet Thor op de 24® zet mn 
aanval in. Ondanks de wat onoverzichtelijke stalling, slagen beide 
programma's erin zonder materiaalachterstand uit deze fase te komen. 
I©ifc 31 TO3 wit is de crux irm de partij j Bet cmfcgaat Thor volkomen 
dat de wltte d-pl«t d'pglgt te gaan prcansvei^. 

Saiat het zwarte paai^ in positle is getemeht, ^at de itrijcl' mf4er* 
In de afwlkkeling die toegint met zet 37 van zwart, denkt Thor uiteind©ii|k 
een pion te kunnen winner! met 43 Tc2 x g2 +. Pas als wit zijn d-pion 
naar d? heeft gespeeld, ontdekt Thor dat hlj nlets meer kaa doen @^ 
de promotie. Hij slaagt er dan geruime tijd in om dat pr0l33,##m over 
zijn horizon te schuiven - dat wil zeggen verder weg te leggen dan 
de diepte van zijn analyse - door steeds ta&S^ schaak te geven. 
Dat lukt tot en met zet 49 waarna er weer een witte dame op het bord 
komt. Terloops wint wit ook nog het zwarte paard dat geen vluchtvelden 
raeer heeft. 

Dan rest nog slechts de matvoering zelf. De partij wordt besloten 
met een komiekeblunder van wit waardoor de winst hem op het laatste 
nippertje ontgaat. 

Wit : Mephisto II Zwart : Thor I 
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X gS 


pat 
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PRINTER INITIAUIBINS FOR E C i!j 3 
-BOMBDN 63- SYSTEM LOYS V3.1 



LEIF RASMU88EN 
PARKVEJ 1 
DK-4S34 HeiRVE 



RECCHA 
RESET 
O U T A B L. 
STROUT 
PR INT 
CTRL-H 



• FT ID 
*F3ZF 
«2322 
*2D 73 
»2343 

* ol 



*DDOB «nd «DDOC niu»t ba changad from 
«1D, «F7 to «47, «DF to point to thl> 

rsfH.!ti.nm.'%tim org, X» •toraei «tn «llak i.x 



1 D 



0"> 
2 2 
0 4. 
O 1 
2 2 



2P 
73 



J8R RECCHA 

CMPIM CTRL.PI 

BEO START 
RTB 

UDAIM »OT 

CMP OUTABL 

BNE PRON 

LOAin «oi 



F3 
2D 



STA 

RT8 



J SR 
J SR 



.IUNIOR'8 ASBEMBL.eR 
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DF 8 9 
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20 
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20 
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O D 
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OO 


1 1 BO I 








DFAB 


A* 09 



OUT ABL. 



RESET 

BTRQUT 

«QD 

• OA 

• 1 

• >• 



BET A CHR 
I B I T ■- 7 
IF YE8, ISM few ^MON> 

IB PRINTER ON f 

IF NOT, PRINTEliftiMU 
I F YES , 

TURN OFF PRINtSHi,, 
RETURN TO BASIC 

C 1- E A R SCREEN 
OUTPUT TEXT 

t> ^tc« (;<li*.««Ul t > 
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moo 
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m 


f4 - 




' > 


PI 








m 


■'M. 
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This is a small printer in- 
itialising routine -for SAM- 
SON'S basic on the system 
" LOYS V3.1 " disk 11 or 12 
from ELEKTOR. The routine 
will be loaded with bootup. 
When ctrl-A is entered, a 
menu appears on the screen: 

1> Pica (default) 

2> Elite tab. 10 

3> Cond. tab. 25 

4> NLQ tab. 6 
When one of these is enter- 
•1), the printer is turned 
on and initialised with the 
choosen -format. The next 
time the ctrl-A is entered, 
the printer is turned off, 
Ctrl-A acts like « , flip- 
flop. 

The printer-codes used here 
are EPSON standard, if your 
printer use another stand- 
ard, you must change the 
output strings. ( Remeinber, 
al iMays end with 00 ) . 
There is just enough room 
on track 12 sector 5 ( just 
behind the pr i nt&! ( x , y ) ) . To 
implement the routine, adrs 
be changed 
to point to this 
routine. 

Store the objectcode on adr 
IDF47, after having CAlled 
track 12,5 on adr. DDOO. 
Save it with SA 12,5=DD00/3 
The routine can used in di- 
rect mode ( fx. listings >, 
or it can be called from a 
basicprogram: DISKVGO DF4F 

• o « # # t A a * • i V e t 

,.&^M30M tips 

When using BLOCKGRAPHICS it 
is necessary to remove the 
'ninth' line. To get a rock 
steady picture, it is not 
enough to change the CTR- 
register nine to 7, as sta- 
ted in EC2. The registers 
must be ''r«ieA|:eMl;«t:#i,' 
Use this : 

10 R = 59661 

20 POKE R+4,38 

30 POKE R+5,0 

40 POKE R+7,30 



*DDOB, OC must 
to $47, DF 
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DF 
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1 root 
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2 0 


4 3 
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2F 


F3 
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DFFF 








1 7 3 O J 











S T A 

ANSWEFI J5R 

CMP I M 
BED 
CMP I M 
BEQ 
CMP I M 
BEIQ 
CHPIM 
BEO 
J HP 



OUTABL. 



RECCHO BET A CHR 



PXCA 



EL. ITS 



J BR 

8 MP 
J8R 



« 3 1 

PICA 
*32 
E L I T F 
*3 3 
C O N D 
« 3. 4 
N 1. □ 



t S 

1 F 

I 8 

I F 

I S 

I F 

I S 

I F 



I T I > ' 

YES "pre*> 

IT 2 > 

VES "EUITE 

IT 3 > 

YES " C O N D " 

IT 4 > 

YES "NLQ" 



RETURN IF NEITHER RETURN 

BTRBUT OUTPUT STRXNB 
« 1 B 
» 4 O 

• OO 

RETURN 

STROUT OUTPUT BTRINB 

« tB 

«40 

• 4D 

• 1 B 

»0B 

000 

RETURN 



L D A I M 
J liH 
JSR 
RT8 



8TROUT 
ftp 

• 40 
*19 
*«>P 
*i B 
mac 

- 

RETURN 

BT ROUT 
« 1 B 

• IB 

*7e 

»31 

• IB 

• 6C 

«oo 
» ou 

PH I N t 
RESET 



toWTPWT BTRtNB 



OUTPUT STRING 



Are there anyone j ffie ife 
working on software for a 
screen-dump from the Kol- 
©rttor graphics cird an 
Samson to a printer ? 
I am trying to get a hard 
copy of the §rific» to ty 
Epson printer, and I am 
very interested to hear 
from others if)ffkli| with 
the same problem. 

Please wrltt to i 

Leif Rasmussen 
Par kvej 1 ■: . ' 
4534 H0rve , .'■ 
Danmark 



BACK TO BASIC 



(> « (:i I ^\ i I I (* I «■ * ^ )•* » X). i '<■< P (I i r i w X !>•' ?• ft <^ * K L 

CONTROl.CHARACTERS FOR SAMSONS CHARCTEREPROM 

This is a hexdump for Samsons charactergenerator , which will generate the greek 
alphabet for the first 32 asci icharacters. This becomes very usefull when work- 
ing with the Wordproct««or , because tht printercommands will be vislbl* #»• th» 
screen ( if the changes of the Wordprocessor listed in De 6502 kenner are made) 
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KEIMMEIR 



FE 

1 REM PRINTR0UTIME V33R TELETYPE 110 BAUD 

2 REM TERMINAL HEEFT H AN D0M SCH AK ELIN G NAAR DEZE WAARDE 

3 nm m serard keet 

5 REM R3DENBURG Na.3 
7 REM 19 65BL HEEMSKERK 
9 REM TEL. (^51 0-39763 
1 0 PRINT CHR$( 1 2) 

RO PRINT CHRSC 12) J "ALLE STANDEN PRI.MTEN" 
9 0 INPUT '*STANDEN INLEZEN <J/N>: "IKS 
9 5 IF KS= "TNl" THEN 1 20 

DATA "DS"* "DAM ESSEN I 3 REN"* "DJ"* "DAM ESJ UN 1 3 REN" 

•MA"* "MEI SJESADSPIRANTEN", "MP", "MEI SJESPUPI LLlfsJ" 
•MW", -MEI SJESWELFEN", "HS", "H EREN SEN I 3 R EN " 
•HJ"* "HERENJUNI3REN", "J A", "J0N GENSADSPI RAN TEN" 

" J W", " J3 N G EN S W EL PEN " 
"HV", "H EREN VETERAN EN" 



1 00 
101 
102 
103 
104 
105 
1 10 

im 

130 
140 
14S 
I 50 
155 
160 
1000 
1010 



DATA 
DATA 
DATA 
0ATA 
DATA 
63 SUB 



"JP", 

"DV", "DAMESVETERANEN' 
18 01 0 



©IM PMSC it), PLSC 12). PR( ig# 4)*PLC V2* 4) • 

P3KE 26,80 

A=36:B= 12: C= 12: D=5i E= 10 
F=D*B*f C+E) 
AI = 24576 
RT=3 

63T3 19110 ' 

REM LEES KLASSE IN PRIMTTABEL ' 
IF FEEK( AI +P) = 48 THEN 1280 ; 
GK=0 ' 
1 020 I F LI THEN 1 125 
102 5 AR=0 

1030 FiP 1*1 Ti DtPR$( 0) = PR£( 0) + CHR$(PEEKCAt-l*P*|)> J«'«lXt I 
1040 F3R 1=1 T3 12 

1045 IF PEEKC AI+F+5+( I- 1)*22) = 48 THEN 1089 
1050 F3R J=l T3 12 

1052 PR£C I )= FR£( I) +CHR£( PEEK ( AI +F+ 4+J+( I- ) :N EX 7 J 

1060 F3R J= 1 T3 1 0: H $=H £+ CH Ri ( PEEK ( AI + P+ 1 6+ J + ( I - I ) ♦ 22) ) ; N EX T 

1 07# PRC I , 1 ) = VA. ( L EFT SC H S, 2) ) I P^t I , 0>a VJSLtf'tt l^ltHi,. d» 1l 

1 08 0 PRC I, 3) = V/^ (MI DSC H$, 5, 3) ) S PRC 1 , 4) * VAL ( RI T$( HS, 3 ) ) :HS= ' 

1082 AR=AR+l:G3T3 109 0 

168t IS I t 

109 0 NEXT I 

1095 G3SUB 5010:REM S3RT RECHTS 
1100 G3T3 1270 
1125 AL=0 

1130 F3R 1=1 T3 D: PL$C 0) = PL$C 0) + CHR$C PEEKC AI- 1 + P+I )) :NEXT I 
114© fliR f =l T3 12 

1145 IF PEEKC AI + P+5+(I- l)it22)= 48 THEN 1189 
1 1 50 F3R J= 1 T3 12 

1152 PLS(I)=PL$CI) + CHR$<PEEK(AI + P+4+J + C I- D+^iTffNEXT 

1160 F3R J= 1 T3 1 0: H£ = H $+CHRSC PEEKC AI + F+ 1 6+ J+C I - 1) *2f>) ) : NEXT 

1170 PLC I, 1) = VALCLEFTSCHJ, 2) ) : PLC I, 2) = VALCMI D$CH$, 3, 2) ) 

1 186 Ft CI , 3) = V A. (MI DSCH f, 5, 3) ) : PLC 1 , 4) = VALC RI GH TSCW t* 3> ) Iff fs^ ' 

118 2 AL=AL+il 63T3 1190 

1189 1=12 

11^0 NEXT I 

1200 G3SUB 6010: REM S3RT LINKS 
1270 P=P+F: G3T3 129 0 

imo tK=- 1 

129 0 RETURN 

1400 REM PRINT LINKS EN RECHTS 
1410 IF ^> AR THEN 1430 



TBV ALLE STANDEN 
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EfE 5 □ S 



KEIMMER 



1420 
i430 
1 440 
1450 

ism 

1510 
1520 
1530 
1535 
1540 
1542 
1545 
1550 
1560 
1 570 

158 0 
1S8S 
1 5F5 6 
153 7 
1588 
1 5B9 
1 59 0 

159 1 
159 2 
159 3 
1 59 4 
1 59 5 
1598 

\&m 

1601 
1602 
1 603 

1604 
1605 
1 606 
1607 
1608 
18 00 
IB 1 0 
1820 
1830 
1840 
1970 

198 0 

199 0 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
409 0 
5000 
501 0 
5020 
5030 
5040 
5050 
5060 
5070 
508 0 
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MX= AR: G3T3 1440 
MX=AL 

IF RT+MX + 3<=60 THEM 1500 

F3R I = RT T3 68 : PR I N T: N EX T: R T= 1 

if f 61 55 WL SCO) 

G3SUB 4010 

PL$< 0) = TEKST$ 

S$( 0>*PtJ« 0) 

IF bK THEM 1545 

G3SUP 4010 

G3T3 1550 

TEKSTS= "•• 

PR£( 0)=TEKST£ 

PRI Ml T AB ( 4) PL S C 0)1 TftflC ^ > > PRJC 03 
PRIMT 

F3R 1= 1 T3 MX 

IP PLMtj="" THEN 159 8 

IF I> = 10 THEN 1 583 

PRINT •• "; 

PRINT IJ PL$(I)J 

F3R L= 1 T3 4:LS(L) =STR3-( PL( I*L) ) 

L£(L) = RI GHTS(L$<L)*LEM(L£(L) ) - 1) :NEXT L 

PRINT SPC( 5-L©4fLSet J) JiLfC llf SPG« 4^LP|<Lft01 J S ! 

PRIMT LSC2); SPC(5-LEM(L$(3)>>IL$C3)J "-"i 

IF LEN(LS(4)> = 3 THEM 159 5 

PRINT Spec 3-L EN CL SC 4) ) ) I 

PRINT L£( 4) ; 

IF PR£CI) = "" THEN 16 08 

PMHf f ABC 4©-Lf:NC STRS< I J > > I > PB^f I J * 

F3R R= 1 T3 4: R£( R) = STR$( PRC I , F- ) ) 

R£(R) = RI GHTS(R$< R) *LEN( RS( R) )- 1 ) :N EXT F 

PRINT SPCC 5-LB»CFItC ! } > ) J R$C 1 ) J SPCC 4-LENC RSC 2> ) ) I 

PPIMT R £( 2) ; SPCC 5-LEM( FSC 3) ) ) ; RSC 3)1 "-"J 

IF LEN(RSC4)) = 3 THEM 1607 

PRINT SPCC3-LENCR$C 4))3J 

PRIMT RSC 4) J 

PRIMT 

NEXT 1 ' . 

PRIMT: PRI MT: RT= RT+MX+ 3 

F3R 1 = 0 T3 1 2: PR$( I) = "": PLSC I ) = ••" 

F3R J= 1 Ta 41 PLC I * J) = 0: PRCI# J)= OtNEXT J 

NEXT I 
G3T3 199 0 
G*<»* I 

RETURM 

REM BEPAAL K3FTEKST 
CATS=LEFTSCSSC©)*g) 

REST3PE 

READ C£»TEKSTX:IF C£<>CATI THSl* .4030 
IF MI D$ C S £C 0) * 3, 1 )« " TH EN 0 



TEKSTS=TEKSTS+" KLASSE 
TE3<STf=TEKST$+" DIVISIE 
RETUR?i 

REM S3RT RECHTS 
F3R 1=1 T3 AR- 1 
F3R J=I + 1 T0 AR 
IF PRC I , 2) < PRC J> 2) THEM 
PRC I * 2) > PRC J* 2) THEN 
PRCI* 1)>PRCJ# 1) THEN 
PRCI* 1 )< PRC J, 1) THEM 



■•+RI GH TJC SIC 0) > 2) : t^Tia 
••+RI GHTSC S£C 0) * 2) 



409 0 



I F 

ir 

I F 
I F 
IF 



5140 
518 0 
51 40 

518 0 



PRC I J 3) -PRC I, 4) < PRC J, 3) -PRC J* 4) 
PRCI, 3)-PRCI# 4)>PRCJj. 3)-WRtJ*4) 



THEM 



5140 



KEIMMER 



509 0 IF PR(I*4><»0 mti Pf?iJj4)<>0 THEN 5120 
5100 IF PR(I,4)<»-0 THEN 5140 

5110 GaT3 5180 .. ... , . . • , 

5120 rr PR(I,3>/PKtt#4)<PfltJ*^T/F^t J» 4) THtt' SI'lf 
5130 G3T3 5180 

5140 HH$=PR$<I):PRSCI) = FR$(J)S,PR£CJ) = HH$ 
5150 F0]? K= t Tt 4 

5 1 6 0 H= PR ( I , K tri^^^i r« > S^t PR < J ' K ) = H 

5170 MEXT K - " ■ 

NEXT J 
NEXT I 
RETURN 

REM S0RT LINKS 
F0R 1=1 T3 AL- 1 
F3R J=I+l T3 AL 
IF PLCI,2)<R-(:J*2S 
PL( U 2) > PL< J> 2) 
PLCI* 1)>PL(J* 1) 
PL ( I , 1 X PL ( J » n 



518 0 
5190 
5200 
6000 
601 0 
6020 
6030 
6040 
6050 
6060 
6070 

608 0 

609 0 
61 00 
611 0 
6120 
6130 
61 40 
61 50 
61 60 
6170 
6180 
619 0 
6200 
18010 
18 020 
IR 030 

18 040 

19 100 
19 1 10 
19 120 
19 130 
19 1 40 
19 1 50 
19 1 60 
19 170 
19 18 0 
19 19 0 
19200 
192 10 
199 00 
199 1 0 
19980 
19990 



61 40 
6180 
61 40 
61t0 



THE3*J 

IF PL ( U 2 ) > PL < J > 2 ) TH EN 
IF PLCI* 1)>PL(J* 1) THEN 
IF PLC I, IX PLC J» n "mEN 

IF PLCI> 3)-PL( I^ 4)< PLC J, 3)-FLC J> 4) IH E^sl 
IF PLC I, 3)-PL< I* 4)>PLC J# 3)-FL(J* 4) IHLM 
IF PLCI,4><»0 AND PL ( J# 4i«*# i|g«J 
IF fLCI,4)<>0 THEN 6140 

03 T3 618 0 

IF PLCI,3)/PLCI*41<PL(J,3)/PL(J* 4) 

G3T3 6180 

HHS.= PL£C I) : PL£C I) =PL$< J) : PLJC J)=HHS 
F3R K= 1 T3 4 

H=PLC I,K):B,(I»K> = f|,{jjK)l PL(J>K>aH 

NEXT K 
N EX T J 
NEXT I 
RETURN 
P3KE 677 7,1 
X = LiSPC &"OPC?"* 0) 
X = USRC &-14BC", 0) 
RETURN 

REM PRIM TEN ALL E STAMDf^ 
INPUT "DATUM: "} DA$ 
PRINT CHRSC 18) 

PRINT "STAN DEN PE^;^%B^ii" VAN . 3 
PRINT! PRINT i' ■• 

RT=3: P= 0!LI=- 1 • ' ' 

G3SUB 1010: REM LEES KLASSE 
IF GK THEN 199 00 
I F N 3 T L I TH EN 1 9 2 00 
LI= 0: G3T3 19 160 
G3SUB 1410: REM PRINT KLASSE 
G3T3 19 160 

THEN 19980 ' 
14 10: REM .PR1,NT KLASSE 
CHRSC 20) ■ 



6 140 
618 0 



THEN 6140 



DIN •^i-'M A 14 DEAL ***" 



LI = - 1 
I F LI 

G3 SU E 
PR I NT 
END 
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C-16 ! Tokenixation of the W&t^ ImetiWetions 



Freil iihrii^r, Muenchen. 

m tUB i^mmmiotm C-16, a B«8IG fffiigi'a* is stored the mm it is *#ith the 



Link address 
10D0 



B No. 

A 



Begin of BASIC 
(address stored 
in 2B/2C) PRINT 



Line Link address 

delimiter 



m OBUdI OA I 1D1 99 1 ZZ | kF \ \ 22 \ □□||1D| 1D|| 1U | DClirg?! 3kl33 1 2C |C2 f 28 f3¥r33| 



0 h 



LinfNo 

POKE k 



3 , PEEK ( k 3 



291 3A|69|31|3D||DD| aD|DU 

111 11 <y T 

) : GOTO 1 0 End of Benin of variables . ■ 

program (address stored . 
in 20/2C) 

Mhat follows is i eiioiplete list of all C-16 BftSIC keyword codes (Red.: see our 
issue nr. 36, February 1985, p. A6/7, Tokenized Microsoft Basic Keywords -snd 
addresses C-l6). The first list is given with its hexadecimal values only 
Mhereas tim seeond list, which is ordered according to increafim code nud^beTS. 



Is given ist IN in hexadecimal and d«sifl«l/ The correspondences mai 
aire the saMi as with the VlC-20. 

m 



AUTO 
BACKUP 
BOX 
CNfiR 
CHRt 
CIRCLE 
CLOSE 
CLR 
CMD 

COLLECT 
COLOR 
CONT 
COPY 
COS 
DATA 
DEC 
DEF 

DELETE 
DIM 

DIRECTORY EE 
DLOAD 



B6 


DO 


EB 


nmrn 


04 


PRINT 


99 


8PC( 


A6 


Pf 


DRAM 


ES 


INT 


m 


PRINT« 


98 


SQR 


BR 


C$ 


D6AVE 


EF 


JOY 


CF 


PRINTUSINB 


99FB 


SSHRPE 


e4 


CI 


ELSE 


D5 


KEY 


F9 


PUDEF 


BD 


STEP 


h3 


DC 


END 


80 


LEFTS 


C8 




CD 


STOP 


90 


F6 


ERR* 


D3 


LEN 


C3 


mm 


DO 


STR* 


C4 




EXIT 


ED 


LET 


88 


READ 


87 


SYS 


9E 


io 


EXP 


BD 


LIST 


9B 


REM 


8F 


TAB( 


A3 


C7 


FN 


AS 


LOAD 


93 


RENAME 


F5 


TAN 


CO 


E2 


FOR 


81 


LOCATE 


E6 


RENUMBER 


Fe 


THEN 


87 


AO 


FRE 


B8 


L06 


BC 


RESTORE 


8C 


TO 


P4 


9C 


SET 


Al 


LOOP 


EC 


RESIDE 


m 


TRAP 


D7 


9D 


8ETKEY 


AIF9 


M1DS 


CA 


RETURN 


8E 


TROFF 


09 


F3 


GET# 


AI23 


MONITtm 


FA 


R6R 


CC 


TRON 


D8 


E7 


60 


CB 


NEU 


A2 


RIGHTS 


C9 


UNTIL 




9A 


60SUB 


8D 


NEXT 


82 


RLUM 


CE 


USINQ 


FB 


F4 


SOTO 


89 


NOT 


A8 


RND 


BB 


USR 


B7 


BE 


GRAPHIC 


DE 


ON 


91 


RUN 


8A 


VAL 


£5 


83 


6SHAPE 


E3 


OPEN 


9F 


SAVE 


94 


VERIFY 


95 




HEADER 


Fl 


OR 


BO 




E9 


VOL 


ti 


if 


HELP 


EA 


fT 


FF 


SCALE^ 




UAIT 






HEX« 


D2 


PAINT 


DF 






■MHJLI 


86 


IF 


8B 


PEEK 


C2 


SGN 


64 






EE 


INPUT 


85 


PWE 


97 


SIN 


BF 






FO 


INPUT# 


84 


POS 


B9 


SOUND 


OA 







!80 


128 


END 


!81 


129 


FOR 


!82 


130 


NEXT 


!83 


131 


DATA 


!84 


132 


INPUT* 


!85 


133 


INPUT 


!88 


134 


DIM 


!87 


135 


READ 


•aa 


136 


LET 



!it 


m 


mm 


!92 


146 


WAIT 


*M 


138 


mm 


!93 


147 


LOAD 


!8B 


139 


IF 


•m 


14« 


' mm 


!8C 


140 


RESTORE 


\m 


1^ 


!8D 


141 


GOSUB 


!96 


150 


DEF 


!8E 


142 


RETURN 


!97 


151 


POKE 


!8F 


143 


I^M 


•98 


1^ 


^}NT# 


!90 


144 


STOP 


•99 


1!^ 


. mmi 


•91 


145 


ON 


!9A 


154 





4 







1 TCT 

I- X a 1 


or 












^P 




Old 






QPFN 


QO 
nv 






n A 


161 


i5FT 






IMCVf 




163 


TOR ( 




164 


Tfl 


OS 


165 

X Dw 


FN 


QC 


166 

X WW 




ft? 


167 

X 17 f 


THEN 


nw 


163 

X wO 


NOT 




16*3 


STFP 


ftfl 

1 11 1 


170 

X f V 






171 

X r X 




or 


17? 






173 


/ 




174 


A. 


rft 


175 




ov 


1 76 

X f D 




DA 


177 

X r r 


> 




1 7A 




B3 


179 


< 


BA 


160 


SGN 


B5 


181 


INT 


B£ 


182 


flBS 


B7 


183 


USR 


B8 


184 


FRE 


B9 


185 


POS 


BA 


18& 


SQR 


BB 


187 


fiND 


BC 


tm 


L06 



1 nn 
: du 


1 HQ 


cvn 


: DC 


1 Qri 

1 3U 


pnc 


< WP 


X 3 i 


ox IN 


: KAJ 


X 7Zi 


TQM 


. X 


1 <I3 
X 


QTW 

M 1 IN 




1 QA 


DFPk 
KCtrN 




1 C)c; 
1 7tJ 


1 FU 




X 3D 


CTR* 
O 1 rC* 






VHL. 


1 P6 


1 QA 
X 30 


QQP 


< P7 


X 33 




' PA 




1 FFT* 


1 pq 


X 




' PQ 




Mine 

I I X um 


PR 






PP 


•?nA 


RRR 


pn 


■5ft5 


RPI R 


PF 




RI 1 IM 


PF 


907 


Tnv 

JUT 


l/v 




HnnT 


U X 


3 


nFP 








X/vJ 


91 1 

^ X X 


FRRt 




91 9 
xxz 


X iNO 1 T\ 


D5 


213 


ELSE 


08 


214 


RESUME 


D7 


215 


TRAP 


06 


216 


TRON 


D9 


217 


TROFF 


DA 


218 


SOUND 


DB 


219 


VOL 


DC 


220 


AUTO 


00 


221 


PUDEF 


DE 


222 


GRflPHIC 



ur 


223 


PhINT 


en 




LrlHK 


CI 
t X 


99 


Dny 


CO 




P T DP-i c 


CO 


997 


ecLJQDP 
t3onH»^C 


C/i 


Z.£.Q 


oonHV't. 


etc; 
CD 


99Q 
ZZ3 


n DQiJ 


PC 
CD 




1 npQTP 

L.UL>H 1 t. 


P7 
C / 


9't 1 


pnj no 


Pfl 
CO 


9T9 


CPMPI D 


pq 

C 3 


ZOO 


QPQl P 


PQ 
CH 




UPl D 


PR 


9tS 


nn 


FP 


93A 




pn 
cu 


ZO/ 


CAl 1 


PP 
cc 


ZOO 


n T DPPTflRV 
Ux nCU ! LllK T 


PC 

tr 


9TQ 
Z0 3 


1/oHVt 


Pft 


9/in 
z*Xv 




pi 

~ X 


9/i 1 
Z^* 1 




F9 


9/i 9 

Z^iZ 




p-T 


9/i 1 
Zm-O 


pni 1 PPT 


P/i 


9/i/i 

z»m 


pnDV 

L>Lfr' Y 


pc; 


9AR 
ZWJ 


RENfi*1E 


F6 


246 


BACKUP 


F7 


247 


DELETE 


F8 


248 


RENLIMBER 


F9 


249 


KEY 


FA 


250 


MONITOft 


FB 


251 


USING 


FC 


252 


UNTIL 


FD 


253 


WHILE 


FE 


254 




FF 


255 



News frcjm the DRAM Front 



According to the SuddeutBche Zeitung from 2k March 1986, p.2U, Texas Instruments 
seems to be the first to have succeeded in producing a MJorkable prototype of a 
t^Mbit DRAM chip. The chip is repcwtai to be organized in k blocks of 1 Mbit each. 
Although SIEMENS have received quite a remarkable amount of subsidy from the 
German Ministry of Scientific Research and Technology for the purpose of develop- 
IrfLiaaSh a chip (as far as I^ have heard) it will still take them years to reach 
th^ goal (thia ^--**a|t thelSudtiteitSGhe Zeitung tiports). . .. ,j ,i , 

News from Munich: The 1Mblt chip is nou on sale for DM 375.- (= Hfl f+10.-). It's 
from Toshiba. In my oplnicm, it should be forbidden to ask such incredibly high 
prices - as remarkable aa the availability of these chips might appear. 

□f course, the sfiult #f #i|(it^pii|ppnt,Aii,*hat I can now get the tt1256s (256 
kbit) for the equally IncredlMt and low iwoynt of DM 9»- ^(Hf 1. . l - 

Ibe 4ms Cek kbtt) a:^ mm swill^li fm ^ 3,50 (Hf l 3.85). 

Incidentally, anybody interested in a motherboard full of U^'\6s (176 chips, 8 
rows by 22)? Any offer abpve postage fee, or things in exchange, will be con- 
sidiiri^ since I didn't 3p?nd much money on them. It i^. '^iilfii .riitT jf^petlors 
on the board I was Interested in and which I taught it fer, 

Fred Stinger 
StrassbergerstrassB 9c/519 
8DD0 Munchen ^0 
Federal Republic of Germany 
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SPELREGELS ***** 



Het spei wordt «esp»#lcl OP 6x8 
v«B ttlm ««n de ene ri jd« ♦iif jn <*> 
h#% b*«in van het spel r f««*ft er ai 4 
tMee witte). De ene speler speeit met 
BChijven. Elk om de beurt leaaen de 



ttiord. Er wordt tespeeld met schiJ- 
en aan de andere ziJde zwart <:0). By 
schiJven OP net bord (twee zwarte en 
de witte en de andere met de zwarte- 
BPelers een schiJf op het bord. Eev 



BchiJf dient men zodania 
schi J f wordt ingesioten. 
naai. ftile schiJven die 

van Kieur veranderen. Het 

of beide speiere hebben aepast) Z0V*ei 
t« hebben. V/*el i»l*Zi*r, 



OP het bord te lessen dat minstens 1 vi Jandei i j ke 
Dit mas zowei horizontaal> vertic«*t ads diaso- 
door deze nieuwe schi J f inseslot^ft «»d:Tdl|f!r sun en 
doe I van het spei is cm iti^ tm% •IM ittit'd voi< 



B 7 B - v^ii»fijfr«fii:TyRN 



10 GOSUB1430:GOTO500 
20 T=0 

30 F0RI»=1T0S:F0RJ=IT0S 
40 IFB<;i, j) OBTHENBB 
50 T=l 

60 NEXTJ: NEXTIs RETURN 
70 GOSUB470 ^ ■ 

80 PRINT"U SPEELT MET "iJtim. 
90 FDRI=1T0B:FDRJ=1T0B 
100 IFBCI, J)=0THEN140 
110 IFB<:i. J)=1THEN130 
120 PRINT" * 'M5GOTO150 
130 PRINT" 0 ";sGDTOtSW'^ ■ 
140 PRINT" . "; 
150 NEXTJ 

160 PRINTI;"= X":NEXTI 
170 PRINT: PRINT" 12 3 4 S 
180 010=0:8=0 
190 X1=X:Y1=Y!GOSUB400 
200 IFT=0THEN330 
210 IF B(:X,Y)<>0 THEN 390 
220 F0RI=-1TD1 :FDRJ«-1T01«X1=XIY1«Y 
230 IFI <> 0THEN250 
240 IFJ=0THEN380 
250 X1=X+I :Y1=Y+J:GOSUB400 
260 IFT=0THEN3B0 
270 C2=0 

280 IFBi:Xl, YD <> 3-T1THEN320 
290 X1=X1+I : Yl=Yl+J«C2»C2+llBOSUBA00 

300 IFT=1THEN2B0 
310 GOTO3S0 

320 I FB < X 1 . Y 1 > "0THEN380 
330 C1»=C1+C2 
340 IFS=0THEN380 
350 X1=X:Y1=Y 

360 B(X1,Y1)=T1:X1=X1+I:Y1"Y1+J 
370 IFBCXl, yi)<>TlTHEN3B0 
380 NEXTJ:NEffl- 

390 RETURN , , . 

400 T=0 • 
A10 IFXK1THEN4B0 
dtm IFX1>8THEN4BB 
1^ IFYl <ITHEN4GB 
440 IFYl>8THEN4£e 
450 T-1 
460 RETURN 
470 GOSUB1450 

490 S1=S1+P3:S1=S1*S1*S1*S1*S1 :Sl=Sl-INT«81)«RETUI»t 
S00 DIMBCB. 8) . E(8. 8) , J« (2) . El (8. 8) 

520 INPIJT"GEEF BEN MlLLEKEURll J^Afc. "fl^W^ 1 
530 RESTORE 

540 FDRI=lTDe:FDRJ«lT08 
550 REftDEd.J) 
560 GOSUB490 

570 EICI. J)=ftBS<ECI, J)+2*S1-1> 
580 B(I.J)-0 

590 NEXTJsNEXTI _ ^ 

£00 B<4. 4) = 1 :BC4. 5)><!2IBC5f A>»2iBC5. 5>«1 
£10 J»C 1)="0" t J«C2>»*** 
£20 P3-3. 141593 
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B3B P=0 

BAB GOSUB470 

E5B P1=0 

GEB PRINT"WRT WILT U DOEN ?" 

670 PRINT"1. OLS EERSTE SPELEN" 

EBB PRINT "2. DE MftCHINE LfiTEIM BEGINICM" 

E9B PR I NT "3. DE MftCHINE TEGEN ZICHZELF tJmW SPELEN" 

70B INPUT"WELKE IS UW KEUZE "IK 

71 B IFK<1THEN&40 

72B IFK>3THENG40 

730 IFK=2THENB80 

740 IFK=3THEN1390 

750 OOSUB20 

760 IFT«0THEN1150 

770 GDSUB70 

7B0 PRINT"WELKE ZET WILT U DOEN <X, Y> " 
790 PRINT"-1,0 WIL ZEGCEN DftT U PAST"? 
BO0 INPUTX.Y 
B10 IFX=-1THEN1290 
82B T1=K!GOSUB1B0 
e3B IFCl OBTHEN870 
84B GOSUB470 
B50 PRINT"FOUTE ZET. " 
8E0 GOSUBSB:COTO780 
B70 P=0:S=1 :GOSUB190 
BB0 GOSUB70 

B90 PRINT" IK DENK EVEN Nfi "? 
900 PRINTJ»<:3-K)!"). ":GDSUB20 
910 IFT=0THEN1150 
920 Ti«=3-K:V=0 

930 FGRX=1TOB:FORY=1TOB»BOSUB1B0 
940 IFC1=0THEN1010 
950 IFP1=0THEN980 
9E0 IFK=1THEN9B0 
970 S=C1+E1 CX, Y)/2:GDTD990 
9B0 S=Cl+E(X,Y)/2 
990 IFS<VTHEN1010 
1000 X2"XiY2=Y:V-S 
1010 NEXTY:NEXTX 
1020 IFV=0TKCN1B90 
1030 C0SUB47e 
1B4B P=0 

1050 PRINT" IK ZET " ; X2 ; " , " ; Y2; ". " 
1060 B=l :X=X2:Y=Y2iGDSUB190 
1070 IFP1=1THEN1410 
10B0 GOTO750 
1090 GOSUB470 
1100 PRINT" IK PftS. " 
1110 IFP> 0THEN1150 
1120 P=l 

1130 IFP1=1THEN1410 
1140 GOTQ770 

1150 PRINT"EINDE VRN HET SPEL. " 
1160 S=0:V=0 

1170 F0RI=lT0BsFORJ=lT08 
1180 IFBCI. J)«0THEN1220 
1190 IFBd, J)=KTHEN1210 
1200 V=V+ls GOTO 1220 
1210 S=S+1 

1220 NEXTJiNEXTItG0SUB7e 

1230 PRINT"U HEEFT"»SI"PUNTEN. IK HEB ER"»V;' 
1240 IFS> VTHEN12B0 
1250 IFS-VTHEN1270 

12G0 PRINT"HRHft IK WIN !!!"tSTOP 
1270 PRINT"GELIJKSPEU"«8T0P 
1280 PRINT"U WINT."iSTOP 
1290 IFP=1THEN1 150 
1300 P=ltGOTO880 
1310 DftTftl0, 4,9.8.8.9.4. 10 
1320 DATft 4.0.2.1.1.2.0.4 
1330 DftTft 9.2.8.3.3.8.2.9 
1340 DATA 8.1.3.0.0.3.1.6 
1350 DATA 8.1.3.0.0.3.1.8 
13E0 DATA 9.2.8.3.3.8.2.9 
1370 DATA 4. 0. 2. 1 . 1 , 2. 0. 4 
1380 DATA10. 4.9.8. 8. 9. 4. 10 
1390 Pl=ltK=2 

1400 OOSUB470iOOSUi9eiGOTO89e 




•MuHiti VOORBEELD ***=* 



U SPEELT MET * 



0 
0 

* 



3 ■ X 

* m X 

5 » X 

G « X 

7 »= X 

8 = X 



1 2345678=Y 

WELKE ZET WILT U DOEN <X.Y> 
-IfB WIL ZEGOEN OAT U PAST. 



W.S DE * SPELER EEN SCHIJF LEGT 
OP DE LIJN 3 VAN DE X-AS EN LYN 

G VAN r — — ~ 

VOLGENDI 



mrSTAAT DE 



U SPEELT riET * 



1410 K=3-KiOOT©li 
1420 END 

1430 REM 8CHCK»n«U<EN KELD^HERM 



■ 


m 


* 


* 


• 


m 






1 


m 


X 




m 


• 


• 


• 


• 


• 


* 


2 




X 


9 


m 




0 


•: 






• 


•3 


■m 


X 


m 






0 


■*c 


* 




■ 


4 




X 


m 


• 


• 


* 


<f 


* 


• 




5 




X 












* 






6 




X 


















7 




X 


















8 




X 


I 


2 


3 


4 


5 


G 


7 


8 




Y 





37 



FORMAT LISTER VI. 3 



FATE 65XX ASSEMBLER VI. 0 PAGE J 0001 



0001 


0000 




.TIT 'FORMAT 


LISTER VI. 3» 


0002 


0000 




.OPT SEN 






0O03 


0000 




.OPT SYM 






0O04 


0000 










0005 


0000 










0006 


0000 


: «*•»»««•*««**•«•««««»««««««»««««#'»*«««««««««« 


OO07 


0000 


; » 






» 


CK)08 


0000 


: ♦ MODIFIED FORMAT-LISTER FOR SENIOR MONITOR # 


0009 


0000 
0000 


• « 








0010 








flWMMMMUHWfr^MMHUt ^^ ^^ 'K' M K 


0011 


0000 










0012 


0000 










0013 


0000 


* COMMflNDSs .TITLE 


PUTS 


A TITLE IN HEAD LINE 


0014 


0000 




.P6 


FORCES ft NEW PAGE START 


0015 


0000 






PRINTER TO DOUBLE WIDTH 


0016 


0000 




««* 


LIKEWISE. BUT STARTS NEW PAGE 


0017 


0000 




+++ 


PRINTER TO NORMAL WIDTH 


0018 


0000 




/// 


LIKEWISE. BUT STARTS NEW PAGE 


0019 


0000 






PRINTER TO COMPRESSED WIDTH 


0020 


0000 




\\\ 


LIKEWISE, BUT STARTS NEW PAGE 


0021 


0000 




>-< 


PRINTER TO SHORT LINES 


0022 


0000 




> + < 


PRINTER TO LONG LINES 


0023 


0000 




>6< 


PRINTER TO 6 LINES/INCH 


0024 


0000 




>8< 


PRINTER TO 8 LINES/INCH 


0025 


0000 




.END 


ENDS PRINTING OF FILE . 


0026 


0000 










0027 


0000 


: ALL PRINTER CONTROL 


IS MICROLINE BO-A CODE 


0028 


0000 










0029 


0000 










0030 


0000 




ZERO PAGE DEFINITIONS 


0031 


0000 










0032 


0000 




»=«0000 






0033 


0000 










0034 


0000 


COUNTR 


♦=♦+1 




■ COUNTER 


0035 


0001 


TEMPY 


*=♦+! 




TEMPORARY FOR Y 


0036 


0002 


MAXL 






MAX. NR. OF LINES IN LI 


0037 


0002 


• 








0038 


0002 




*=*0010 






0039 


0010 










0040 


0010 


CURCH 


#=*+! 




• CURRENT CHARACTER 


0041 


0011 


CHCNT 


*=#+! 




CHARACTER COUNTER 


0042 


0012 


NDTSPC 


*=*+! 




• NUMBER OF NON-SPACES IN 


0043 


0013 


CHARS 


*=#+2 




NUMBER OF CHARACTERS IN 


0044 


0015 


CURPAG 


«s=#+2 




CURRENT PAGE NUMBER 


0045 


0017 


LINE 


*>*-ff80 




LINE BUFFER 


0046 


0097 


CURTIT 






■ CURRENT TITLE 


0047 


0097 


■ 








0048 


0097 




•«*00F0 






0049 


OOFO 










0050 


OOFO 


HULP 






: TEXT POINTER 


0051 


OOFO 


■ 








0052 


OOFO 


• 








0053 


OOFO 




SENIOR MONITOR 


LOCATIONS 


0054 


OOFO 










0055 


OOFO 




*»^0520 






0056 


0520 


• 








0057 


0520 


INFLG 


#=*+l 




■ ACTIVE INPUT DEVICE 


0058 


0521 


OUTFLG 


*=*057C 




ACTIVE OUTPUT DEVICE 


0059 


057C 


SOURCE 


#=*+2 




• SOURCE BOTTOM 


0060 


057E 


SORPNT 


*=»058E 




SOURCE POINTER 


0061 


058E 


CURLIN 






CURRENT LINE NUMBER 


0062 


058F 


MAXLIN 






: MAXIMUM NUMBER OF LINES 


0063 


058F 


• 






0064 


058F 


* 

•I. 








0065 


058F 


■ 


Em:UTION VECTOR (START HITH KEY <S)) 


0066 


058F 











2lE 5 □ E! 



KENtvlEIR 



FORMAT LISTER Vi.3 



FATE 6SXX A^EHBLEft VI. 0 PA6Ei QOOa 



0067 


058F 






*=*0506 




0068 


0506 




■ 








0069 


0506 


0002 




.WOR FORM 


• 


0070 


0508 




• 








0071 


0508 












0072 


0508 




» 


MAIN PR06RAM 




0073 


0508 




■m 
n 








0074 


0508 






•««0200 




0075 


0200 




m 








0076 


0200 


D8 


CLD 






0077 


0201 


02FF 




LDX 


#*FF 




0078 


0203 


9n 




TXS 






0079 


0204 


0900 




LDO 


#♦00 




0080 


0206 


SDSEOS 




STO 


CURL IN 




0081 


0209 


8515 




STO 


CURPOG 




0082 


020B 


8516 




STO 


CURPOG+1 




0083 


020D 


A93B 




LOO 


»$3B 




0084 


020F 


&S02 




STA 


MAXL 




0085 


0211 




■ 








0086 


0211 




: iHTmmmim m program 




0087 


0211 




• 








0088 


0211 


09B3 


iNTRO 


LDA t<TEXTl 


• 


0089 


0213 


85F0 




STA 


MULP 




0090 


0215 


0903 




LDA »>TEXT1 


• 


0091 


0217 


85F1 




STO 


HULP+1 




0092 


0219 


20CC04 




JSR 


MESSO 




0093 


021C 


20F104 




JSR 


CRLF 


• 


0094 


021F 


20DF04 




JSR 


WHERE! 


■ 


0095 


0222 


0D2005 




LDO 


INFLG 
#'M' 




0096 


0225 


C94D 




CMP 




0097 


0227 


D003 




BNE 


INTRDl 




0098 


0229 


20F004 




JSR 


REWIND 




0099 


022C 


20F104 


INTROl 


JSR 


CRLF 


• 


0100 


022F 


20E204 




JSR 


WHEREO 




0101 


0232 


090D 




LDA 


««0D 




0102 


0234 


&S97 




STA i^IT 


• 


0103 


0236 




m 








0104 


0236 




: INPUT ONE LINE FROM A. I.D. 


0105 


0236 












0106 


0236 


0900 




LDO 


#*00 




0107 


0238 


6511 




STO 


CHCNT 


• 


0108 


0230 


C90D 


INLI 


CMP 


#»0D 


• 


0109 


023C 


FOOD 




BEQ 


INL2 




0110 


023E 


20E504 




JSR 


I NOLL 


■ 


0111 


0241 


0411 




LDY 


CHCNT 




0112 


0243 


991700 




STO 


LINE.Y 




0113 


0246 


E611 




INC 


CHCNT 




0114 


0248 


4C3002 




JMP 


INLI 




0115 


024B 


C611 


INL2 


DEC 


CHCNT 




0116 


024D 


0000 




LDY 


#*00 




0117 


024F 


0200 


F0RM2 


LDX 


#*00 




one 


0251 


0903 




LDA 


#*03 




0119 


0253 


20CD03 




JSR 


COMP 




0120 


0256 


D006 




BNE 


NOTPG 




0121 


0258 


201204 




JSR 


HEODER 




0122 


025B 


4C3602 




JMP 


FORMl 




0123 


025E 


0203 


NOTPB 


LDX 


#*03 




0124 


0260 


0906 




LDO 


*$06 




0125 


0262 






JSR 


COMP 




0126 


0265 






,mlc 


NOTTI 




0127 


0267 




* 
n 








0128 


0267 




S PUT TITLE IN TITLE-BUFFER 


0129 


0267 












0130 


0267 


C8 


iNTIU 


I NY 




m 


0131 


0268 


8413 




STY 


CHORS 




0132 


026A 


8C1104 




STY 


TITFL 




0133 


026D 


0900 




LDA 


tt»00 





; COLD START ENTRY 



JUST IN CASE ... 

RESET STACKPOINTER 

CLEAR CURRENT LINE NUMBER 

. . . AND CURRENT PAgg 

SET MAX. NR. LINES «i| USTER 

PROBRAM INTRODUCTIONi 

PBQTON FORM-LISTEt ¥I« t 

PRINT MESSAGE 
CR+LF 

m^mM INPUT DEVICE 



IF MEI«IRY> RESET SOili^ Pi|ll4TER 
CR+LF ^ 

'iep^liNE OUTPUT ommM 

RE^T CURRENT TITLE 



CLEAR CHOROCTER COUNT 
CR?. MEANS END OF LINE 

INPUT CHARACTER F^ A,;i. i, 

PUT IT IN LINE-BUFFER 



COMPARE COMMAND . PG 

YES, FORCE START OF NEW PAGE 

COMPARE COMMAND .TITLE, 



mmi .TITLE + SPACE 
SET f iTLE FLAG 



FORMAT LISTER VI. 3 



FAT£ 65XX ASSEMBLER VI. 0 PASE: 0003 



ft 1 'Xh 
\> 1 Of* 




OtJ 1 ^ 




STQ 


NOTSPC 


f\ 1 T*? 


U/C r 1 


Hoi «j 




L.L/ A 




ri 1 "Kd 
U X tJO 








L no 


LINE X 






ft 

DDI 




Zj 1 ri 


PI |PPH 


u loo 


ft'?77 


QSI ft 


1LI4 1 A 




CURCH 


0139 


A07Q 






PMD 


n^yJU 




ftO?!! 
U2 / D 


Ffti 7 
r vi / 






TNT2 


0141 


A07T\ 

027D 


AA 1 o 




1 nv 


fH\J 1 OKU 




Oz /r 


Q«5 1 ft 




1 no 


ri iRPH 

ULinwn 


0143 


AO A 1 

0261 


999700 




CTQ 
D 1 H 


PIIDTTT V 


0144 


AODA 

02a4 






T MP 




0149 


v2Hb 


bD12 




T MP 


I^U 1 OKU 


A 4 AC 

0146 


U20o 


Hol>> 






PMORQ 


At AT 

0147 




d31 f 




I no 




AA 

U14a 




Am A 

B31U 




CiTQ 
o 1 n 


riJRCH 


A 4 ACI 

0*49 


OZoc 


R92U 




1 no 




A 4 HA 

OlSO 


AKOA 

02^O 


r^K4 7 
CS13 




PMD 




0191 


0292 


B0E3 




DPC 


T MT 1 
1 IN 1 1 


013Z 


0294 


AA 1 O 


IN 1 2 


1 nv 




A 4 tt9 

0193 


0296 


AQAH 




1 no 

L.UH 




A 4 ttA 

0134 


0296 


999 fOU 




3 1 H 


PIIRTTT V 


A4 MC 

OlSS 


029d 






T MP 


PI IRI TM 


A 4 

0196 


029c 


0A01 AA 

4Lat>UZ 




TCP 




A4 ftT 


A<%#|4 

O^l 




TMD 


r unn i 


A 4 MO 


0ZR4 


HZUi» 


MflTTT 
riU 1 1 1 


1 ny 


WW J 


A4 IRQ 
0139 


AOAC 

v2Mb 


AQAT 
HsOiS 




1 no 


tt*AT 


A4 CA 

OloO 


vxMo 


OAf HAT 




TQR 


PHMO 


f<4 £4 

Olei 


AOA& 
UZH0 


nAih^ 
I/UUo 




0NC 


WflTCT 
nu 1 a 1 




AOAn 
U2HU 


OAi OA A 








m cx 


AOOA 


<4LrUr vz 




IMP 




U1B4 






l4lif 1 9 1. 


Lai/ A 


#tOP 






OQAA 




1 TiQ 


*«ftA 














A 4 e7 
0167 


vZOH 


UvlH 




RMP 
one 


141J 1 cpi 


A4 ea 
vies 


O^ISBC 


OABQAA 




TQR 




A 4 CO 

0169 


OZBr 


OAOTAA 




TQR 


DRI DMR 


A 4 tf% 

0170 


D^<Z 


OAADAA 
ZUH0U4 




TCR 


DRhinRM 


A4 T4 

0171 


02Ca 


AOAA 

H900 




1 no 




017iZ 


02U/ 


an 4 4 A A 
OUl 1U<» 




9 1 H 




01^ 


AOf*A 

02cn 


OACCAA 

20c.b04 




TCP 


PI ncpn 


0174 


02CD 


OACDAA 
2OE0O4 




TCD 


PI ncPT 


0175 


O^lO 


20F104 




TC3D 

Jan 


PW P 


0176 




4CDq^ 








0177 


02IIO 


flSlO 




LUX 




0178 


02Do 


A903 




1 AA 






02Dh 


20CD03 




TCD 


pnMD 


0180 


020D 


D006 




DNt 


MflTPn 


0181 


02DF 


209804 


EQUAL 


teo 
Jan 


nDlJTT\C 


/\4 a<'% 
0162 


02c2 


4C4F02 




TMD 


rUnPlZ 


0183 


02E5 


A213 


NOTEQ 


LDX 


««13 


A 4 A A 

0184 


02E7 


A903 




LDA 


««03 


A 4 BK 

018S 




20CD03 




JSR 


COMP 


A 4 

0186 


02EC 


D009 




BhE 


NOTSL 


uxor 




201204 




JSR 


HEADER 


0188 


02F1 


20AB04 SLA^ 


JSR 


PRNORM 


0189 


02F4 


4C4F02 




JMP 


F0RM2 


0190 


02F7 


A216 


NOTSL 


LDX 


««16 


0191 


02F9 


A903 




LDA 


««03 


0192 


02^B 


20CD03 




JSR 


COMP 


0193 


02FE 


FOFl 




BEQ 


SLASH 


0194 


0300 


A219 


NOTPL 


LDX 


*fl9 


0195 


0302 


A903 




LDA 


««03 


0196 


0304 


^|03 




JSR mtp 


0197 


0307 






mE MOTMIN 


0198 


0309 


A91D 


MIN 


LDA 


»«1D 


0199 


030B 


209A04 




JSR 


MODE 


0200 


030E 


4C4F02 




jm 


F0RM2 



: CR?, END OF TITLE 



; SAVE TITLE CHARACTER 



: TITLE NOT L0N6ER THEN 4S 



CLOSE TITLE 

INCREMENT CURRENT LI WE 

GO PRINT HEAD 



COMPARE COMMAND **» 

YES, START NEW PAGE ... 

... AND SET PRINTER TO WIDE 



• COMPARE COMMAND .END 

: SET PRINTER TO 6 LINES/ INCH 

: SET PRINTER TO LONG LINES 

• NORMAL CHARACTERS 

; CLEAR TITLE FLAG 

; CLOSE OUTPUT DEVICE 

: CLOSE INPUT DEVICE 

: CR+LF 

; BACK TO SENIOR 



: COMPARE COMMAND 



! YES, SET PRINTER TO WIDE 
: GO &EAL WITH REST 0^ Jn^ME 



COMPARE &mmD /// 

YES, START NEW PAGE ... 

... AND SET PRINTER TO NORMAL 

GO DEAL WITH REST OF LINE 



: COMPARE COMMfWD +** 

i BO SET PRINTER TO NORMAL 



: COMPAI^ COMMA!® — 



• SET PRINTER TO COMPRESSED MODE 
: 60 DEAL WITH REST OF LINE 



40 



EE 5 n s 



FDRMflT LISTER VI. 3 



FATE 65XX ASSiHiLEit VI. 0 PA6Et 0004 



0201 


0311 


ft21C 


NDTMIN 


LDX 


#«1C 




0202 


0313 


0903 




LDft 


#*03 




0203 


0315 


20CD03 




JSR 


COMP 


• 


0204 


0318 


D006 




BNE 


NOTBSL 




0205 


031ft 


201204 




JSR 


HEftDER 


« 


0206 


031D 


4C0903 




JMP 


MIN 


• 


0207 


0320 


fi21F 


NOTBSL 


LDX 


»*1F 




0208 


0322 


ft903 




LDft 


#♦03 




0209 


0324 


20CD03 




JSR 


COMP 


■ 


0210 


0327 


DOOB 




BNE 


NOTSH 




0211 


0329 


20ftF04 




JSR 


PRESC 




0212 


032C 


ft942 




LDft 


#'B' 




0213 


032E 


209D04 


BSL 


JSR 


OUTPO 




0214 


0331 


4C4F02 




JMP 


F0RM2 


• 


0215 


0334 


fl222 


NOTSH 


LDX 


*«22 




0216 


0336 


0903 




LDft 


«»03 




0217 


0338 


20CD03 




JSR 


COMP 


■ 


02ia 


033B 


D006 




BNE 


NOTLO 




0219 


033D 


20B304 




JSR 


PRLONS 




0220 


0340 


4C4F02 




JMP 


F0RM2 


■ 


0221 


0343 


0225 


NOTLO 


LDX 


#*25 




0222 


0345 


0903 




LDft 


#♦03 




0223 


0347 


20CD03 




JSR 


COMP 


• 


0224 


034fl 


D006 




BNE 


N0TL6 




0225 


034C 


20Bft04 




JSR 


PRI6L 


• 


0226 


034F 


4C4F02 




JMP 


F0RM2 


• 


0227 


0352 


ft228 


N0TL6 


LDX 


#$28 




0228 


0354 


ft903 




LDft 


«*03 




0229 


0356 


20CD03 




JSR 


COMP 


■ 


0230 


0359 


D014 




BNE 


N0TL8 




0231 


035B 


20ftF04 




JSR 


PRESC 




0232 


035E 


ft938 




LDft 


#'8' 


• 


0233 


0360 


209D04 




JSR 


OUTPO 




0234 


0363 


ft94E 




LDft 


#$4E 




0235 


0365 


8502 




STft 


MftXL 




0236 


0367 


0954 




LDft 


#*54 




0237 


0369 


8D8F05 




STft 


MftXLIN 




0238 


036C 


4C4F02 




JMP 


F0RM2 


9 


0239 


036F 


ft502 


N0TL8 


LDft 


MftXL 




0240 


0371 


CD8E05 




CMP 


CURLIN 




0241 


0374 


B009 




BCS 


N0TL8ft 




0242 


0376 


ft900 




LDft 


#*00 




0243 


0378 


C512 




CMP 


NOTSPC 




0244 


037A 


D003 




BNE 


N0TL8ft 




0245 


037C 


201204 




JSR 


HEftDER 


• 


0246 


037F 


ft502 


NOTLSft 


LDft 


MftXL 




0247 


0381 


CD8E05 




CMP 


CURLIN 




0248 


0384 


B003 




BCS 


N0TL8B 




0249 


0386 


201204 




JSR 


HEftDER 


- 


0250 


0389 












0251 


0389 




• PRINT 


ONE LINE ON ft. 0. D. 




0252 


0389 












0253 


0389 


98 


N0TL8B 


TYft 






0254 


038ft 


8513 


PRLO 


STft 


CHftRS 




0255 


038C 


C511 


PRLl 


CMP 


CHCNT 




0256 


038E 


F005 




BEQ 


PRL2 




0257 


0390 


9003 




BCC 


PRL2 




0258 


0392 


4Cft003 




JMP 


PRL3 




0259 


0395 


ft613 


PRL2 


LDX 


CHftRS 




0260 


0397 


B517 




LDft 


LINE, X 




0261 


0399 


C90D 




CMP 


#*0D 


m 


0262 


039B 


FOOft 




BEQ 


PRL4 




0263 


039D 


20E804 




JSR 


OUTftLL 


n 

n 


0264 


03fl0 


E613 


PRL3 


INC 


CHftRS 




0265 


03fl2 


ft513 




LDft 


CHftRS 




0266 


03fl4 


4C8C03 




JMP 


PRLl 




0267 


03fl7 


EE8E05 


PRL4 


INC 


CURLIN 





COMPARE COMMftND \\\ 
60 TO NEM PftGE 



: COMPARE cdrawwD >-< 



; COMPARE COMMAND >-»■< 



: 60 DEAL WITH REST m..Um 



; COMPARE COMMftND >6< 

SET PRINTER TO 6 LINES/INCH 

m imm. with rest of line 



COMMAND >a< 



: SET PRINTER TO 8 LINES/INCH 



: FORCE NEM PAGE 



: FORCE NEW POSE 
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2^ Ei S D S 



FORMftT LISTER VI. 3 



FATE S3XX ASSEMBLER VI. 0 PASEi 0005 







20F404 




JSR RCHEK 


0269 


030D 


20F 1 04 




JSR CRLF 


0270 








JMP FORMl 


0271 


03B3 








0272 


03B3 








0273 


03B3 






mmmntms 


0274 


03B3 








0275 






: PROBRflM TEXTS 




03B3 








0277 


03B3 


464F 


tEXTl 


.BYT 'FORMAT-' 


0277 




S2An 






0277 


03B7 


41 542D 










ArA9 




.BYT 'LISTER VI. 


027fl 
























2flSfi 






027fl 




31 2F 
















0279 






• 




02 An 






fEXT2 


.BYT 'PA6EI 






4745 










3fl2ft3H 

OMAVwD 






n2A1 
















: COMPARE COMMAND ROUTINE 


















COMP 


STO COUNTR 










STY TEMPY 




03D1 




COMPl 


LDA COMMT, X 






npi 7An 




CMP LINE.Y 


n2AA 








BNE C0MP2 




03D9 


FA 




I NX 


0290 




PA 




I NY 


fl291 




LfDvV 




DEC COUNTR 






nOF2 




BNE CDMPl 


0293 


03DF 


f^O 




RTS 


h29A 




DA 


C0HP2 


PHP 




nTPi 


H**V.' 1 




LDY TEMPY 










PLP 




nXFA 


Aft 
Dy 




RTS 


029A 












ftTFS 
f>"?FS 




: COMMAND TABLE 












riTFS 




COMMT 


.BYT '.PS' 


nTft2 


riTFA 






.BYT '.TITLE' 




riTFO 










riTFr 


£(L«<1^ 








riTFF 


ZHZHZH 




.BYT '*»*' 




ATFI 

uor 1 






.BYT '.END' 














u or □ 


■7nTn3n 




.BYT '===' 






Zr Z.V 




.BYT '///' 










.BYT '+++' 










.BYT ' ' 


0309 


0401 


5C5C5C 




.BYT '\\\' 


0310 


0404 


3E2D3C 




.BYT '>-<' 


0311 


0407 


3E2B3C 




.BYT '> + <' 


0312 


040fl 


3E363C 




.BYT '>6<' 


0313 


040D 


3E383C 




.BYT '>8<' 


0314 


0410 








0315 


0410 


IE 


PRMODE 


.BYT $1E 


0316 


0411 


00 


TITFL 


•BYT *00 


0317 


0412 








0316 


0412 




• PRINT 


HEADER IN LISTINS 


0319 


0412 








0320 


0412 


8401 


HEADER 


STY TEMPY 


0321 


0414 


A0aE05 




LDA CURL IN 


0322 


0417 


F008 




BEQ HEADl 



: CHECK FOR KEYBORRD INTERRUPT 
; CR+LF 

; 60 DEAL WITH NEXT LINE 



• SET COMMftND LENGTH 
: SAVE Y FOR NOT EQUAL 

: IS LINE START INS WITH COMMAND? 
; NOT THIS COMMAND 



FULL COMMAND? 

Z=l IF COMMAND FOUND 



PRINTER MODES DEF. NORMAL 
TITLE FLABs DEF. NO TITLE 



: SAVE Y 

: IF CURRENT LINE » 0 . . , 
: ... NO LINE SKIPPIN6 



2 



Ei 5 □ 5 



FORMAT LISTER VI. 3 



FATE 65XX ASSEMBLER VI. 0 PflSEs 0006 





0413 


2^1104 




JSR FORMS 




04 IC 






LDO TITFL 


032S 


041F 


F013 




BEQ HE0D2 


032d 


0421 


AAA A 

H902 


HEODl 


LDO *$02 


0327 


0423 


n n n A. 

8D8E05 




STO CURL IN 


0<32B 


A A 

042b 


An 4 

H91E 




LDO ««1E 


0329 


A A Afl 

0428 


209D04 




JSR OUTPO 


AWA 

0330 


A A Al*l 

042B 


AA<W^A. .# 

203704 




JSR PRHEOD 


0331 


A A#W 

042E 


fwiOOft 




LDft PRMODE 


0332 


A AVtf 

0431 


209D04 




JSR OUTPO 


0333 


A A V A 

0434 


A40i 


HE002 


LDY TEMPY 


AWA 

033ft 


AA*V^ 

0436 


60 




RTS 




A A*V^ 

0437 


0900 




LDft #$00 


0336 


aa 

0439 


8513 


STft CHftRS 


0337 


A A *vn 

043B 


C92D 


PfWO 


CMP #*2D 




A A *W1 

04^ 


F005 




BEQ PRHl 


A*V%I1' 


AA 

043r 


haav 

9003 




BCC PRHl 


AYAA 

0340 


AA A < 

0441 


4C5604 




JMP PRH3 


0341 


A A A A 

0444 


ft613 


PRHl 


LDX CHftRS 


0342 


A A A f 

0446 


B597 




LDft CURTIT, X 


0343 


A A Afl 

0448 


C90D 




CMP #»0D 


A*VA A 

0344 


AAA A 


e*AAA 




BEQ PRH3 


0345 


A A Ai^ 

044C 


20EB04 


PRH2 


JSR OUTOLL 


AYA£ 

034b 


A A AP 

044F 


E613 




INC CHORS 


0347 


AA K « 

0451 


A513 




LDO CHORS 


0348 


A AW 

0453 


4C3B04 




JMP PRHO 


0349 


A AKf 

0456 


ft513 


PRH3 


LDO CHORS 


0350 


0458 


C935 


PRH4 


CMP #$35 


03S1 


A A 0A 

045h 


F005 




BEQ PRH5 


0332 


A A 

045C 


9003 




BCC PRH5 


03S3 


045E 


4C6B04 




JMP PRH6 


03S4 


A A ^ 4 

0461 


209304 


PRH5 


JSR SPftCE 


0355 


0464 


E613 




INC CHORS 


0356 


0466 


0513 




LDO CHORS 


0357 


0468 


4C5804 




JMP PRH4 


0358 


046B 


fi9C6 


PRH6 


LDO #(TEXT2 


0359 


0460 


85F0 




STO HULP 


0260 


A A ^ ^ 

046F 


ft903 




LDO #>TEXT2 


0361 


0471 


85F1 




STO HULP+1 


0362 


0473 


20CC04 




JSR MESSO 


0363 


0476 


F8 




SED 


0364 


0477 


18 




CLC 


0365 


0478 


ft515 




LDO CURPOS 


0366 


047ft 


6901 




ODC #*01 


0367 


047C 


8515 




STO CURPflG 


0368 


047E 


ftft 




TOX 


0369 


047F 


0516 




LDO CURPOB+1 


0370 


0481 


6900 




ODC #*00 


0371 


0483 


8516 




STO CURPOS-i-l 


0372 


0485 


D8 




CLD 


0373 


0486 


20F704 




JSR WROX 


0374 


0489 


20F104 




JSR CRLF 


0375 


048C 


209304 




JSR SPOCE 


0376 








JSR CRLF 


0377 


0492 


60 




0378 


0493 








0379 


0493 




i pmm A spai:e on a.o 


0380 


0493 








0381 


0493 


0920 




LDO #' ' 


0382 


0495 


4CE804 




JMP OUTOLL 


0383 


0498 




■ 


0384 


0498 




: SET PRINTER MODE TO 1 


0385 


0498 




m 




0386 


0498 


091F 


PRWIOE 


LOO *»1F 


0387 


049ft 


81)1004 


MODE 


STA PRMODE 


0388 


049D 




• 


0389 


049D 




: SEND CHORAGTER ONLY 



: FORCE NEW POBE 
: TITLE FLOS SET? 
: NQjriTLE 

! CURRINT LINE » 2 

: PRINTER TO NORMAL 
: PRINT HEOD 

: PRINTER OS IT WOS 
: IBBTO^ Y 



: CLEOR NUMBER OF CHOROCTERS 
; MAXIMUM TITLE LENGTH? 



GET TITLE CHOROCTER 
WOS IT CR? 
YES, END OF TITLE 
PRINT IT 



; LEOVE EMPTY UP TO 53 



: PRINT 0 SPf€E 



PRINT "PftGE: " 



; itmrnmr current ptm 



: ftND OUTPUT IT 

; CR+LF ^ 

: SPOCE 

; CR+LF 



: PRINT 0 SPOCE 



SET PRINTER MODE 
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E^E IBi D i2!^ 



FORMAT LISTgR VI. 3 



mm fiSXX ASSEKffiUR Vi,0 PflSEi 0007 



0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0406 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
i41& 

mti 

0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
042& 
0427 
042B 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
043S 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0'44i& 



0448 
0449 
0450 
0451 
0452 
0453 
0454 



049D 

049D 

049E 

0401 

04fl3 

04fl5 

04A6 

04fl9 

04AA 

04flB 

04ftB 

04nB 

04flB 

04AD 

04fiF 

04ftF 

04fiF 

04flF 

04B1 

04B3 

04B3 

04B3 

04B3 

04B6 

04B8 

04Bfl 

04BA 

04BA 

mmi 

04BF 
04C2 
04C4 
MCS 
04C8 
04CB 
04CC 
04CC 
04CC 
04CC 
04CE 
04D0 
04D2 
0404 
04D7 
04D8 
04DB 
040C 
04DC 
04DC 
04DC 
040C 
O40F 
0iE2 
04E5 
04E8 
0.4^' 

04F1 
04F4 
04F7 
04FA 
04FD 
0500 
0500 



48 

flD2105 
□950 
D004 
66 

4CE604 

68 

60 



A91E 
DOEB 



A91B 
POEA 



dtrrpo 



otfrww 



PHA 

LDA OUTFLG 
CMP #'P' 
BNE OUTPai 
PLA 

JMP OUTALL 

PLA 

RTS 



: SET PRINTER MODE TO NORMAL CHARACTERS 

PRNORM LOA «»1E 
BNE MODE 

SEND ESCAPE CHARACTER TO PRINTER 



PRESC 



LDP #*1B 
BNE OUTPO 



200F04 

0941 

D0E3 



aiRF04 

209D04 

A93B 

8502 

A93E 

808F05 

80 



AOOO 

BIFO 

C93B 

F007 

20E804 

C8 

4CCE04 
80 



6C00E0 
&C02E0 
8C04E0 
8C06E0 
6C08E0 

6C0EE0 
6C14E0 
&C26E0 
6C58E0 
6C5EE0 



SET PRINTER TO LONG LINES 

PRLONS JSR PRESC 
LDfl #'A' 
BNE OUTPO 

SET PRINTER TO 6 LINES/1^IC^.. 



PRI6L 



JSR PRESC 
LDA #'6' 
JSR OUTPO 
LDA #*3B 
STA MAXL 
LDA #*3E 
STA MAXLIN 



: PRINT MESSAGE (HULP) 



MESSY 



MESSND 



LDY #*00 
LDA (HULP). 
CMP #':' 
BEQ MESSND 
JSR OUTALL 
INY 

JMP MESSY 
RTS 



: BET MESSAGE CHARACTER 

; DELIMITER? 

; PRINT CHARACTER 



SENIOR MONITOR ROUTINE VECTORS 



COM IN 

WHEREI 

WHEREO 

INALL 

OUTALL 

CU3SEI 

CLOSED 

CRLF 

RCHEK 

WRAX 

REMIND 

FORMS 



JMP ($£000) 

JMP ($E002) 

JMP (♦E004) 

JMP («E00&^ 

JMP {fE©«^) 

JMP («E00A) 

JMP (♦EOOC) 

JMP («EOOE) 

JMP («E014) 

JMP («E026) 

JMP (»E058) 

JMP (*E05E) 

.END 



RETURN TO SENIOR MONITOR 
DETERMINE INPUT DE^lfi 
DETERMINE OUTPUT f " 
INPOT FROM A. I.D. 
OUTPUT TO A.O.D. 
Ct^i INPUT DEVIfX : - 
Cl^^ OUTPUT D^ieE : • 
CR + LF TO A. 0. D. 
CHECK FOR KEYBOARD INTEHIIBPT 
BYTES IN A & X TO A.O.i|,r. 
REWIND INPUT DEVICE - 
FORCE NEW PASg 
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WLmM ■ ■ 1 ■ 



»««» JUNIOR BASIC LISTING ++ DE 6845 GEPROGRAMMEERD ++ «*»« 



10 REM ===<<< DE 6845 GEPROGRAMMEERD >>>=== — 

12 ilM Dit prograMffia is een wijziging en iMBVialiliig 

14 REM op het artlkel met de zelfde naam in Elektuur okt . « 84 . 

^6 REM 

l8 RIM Aangepast door : 

20 REM H.Feijen 

22 REM Pr . Clausstraat 30 

24 REM 9422 GN SMILDE. 

25 REM 

26 REM Gemaakt op een Junior met VDU en 1 6K stat.RAM + 
ti ilM 16K dyn.RAM en geprint &f Tf iumph-Ailef 

30 REM elektronlsche schrij f machine omgebouwd tot printer. 
32 REM 

34 ttM lilt't'teft |frittt#r,|.#l 4m i# prtater' lasehikel. routine 
36 REM in subroutine 3000 en de uitsehakel routine ifi 4000 
40 REM 

50 INPUT"Gevonden waarden uitprinten ? {Y/NJ^jPlI' 
60 PRINTCHR$(27) ; :PRINTCHR$(49) 

100 REM************CONSTANTEN**************** 

105 DIMR(15) 

110 R(3)=8 

120 K$="REGISTER" 

136 E|s"MICROSECONDEN" 

140 REM********************** RO *********** if *********** 

150 PRINT"Het programma is ingesteld op een kristal van 15 Mhz " 

151 PRINT"M'01T DE KLOKFREQUENTIE VAN DE VDU KAART lAMGEPAST WORDEN ?" 

152 PRINT:PRINT:PRINT"<Y/N>":INPUT YN$ 

153 IFYN$="N"THENR(0)=119:TC=64/120:LPB=8*TC:TSL=120*TC:G0T0300 

160 PRINT"«ORIZONTALE LIJN LBNGTE (CHAR.): " 

161 PRINT"voor een 15 MHz kristal is dit 120,voor een 16 MHz 128" 

170 INPUT AO 
180 R{0)=A0-1 

190 TC=64/A0 
200 FX=8/TG 

210 P«INT"FRiQyESTIE = " ; FX ; " MHz" 
220 PRINT"FCRISTliL FBEQUlIiTIJE (MHz): " 
230 INPUTFX ' ■ ■ 

140' TC=1 /(FX/8) 
250 LPB=R(3)*TC 
260 TSL=AO*TC 

3t:Q iiM**************** R1 «**«»*««***»«»»*** 

310 PRINT" AANTAL KARAKTERS PER REGEL : s tandaard 80" 
320 INPUTR ( 1 ) 
330 Bf =R ( 1 ) *TC 

400 REM**************** R2 ««««*«**«*«*«*«***« 
410 HP=DT+(TSL-1 .5*LPB-DT) /2 
420 R(2)=Hi/fC 

500 REM****************** R3 ****************** 
600 REM****************** 

610 PRINT"AANTAL LIJNEN PER REGEL : ( standaard 9,minimaal 8)" 

620 INPUTA 

623 IF A<8 THEN PRINT"MINIMAAL 8 LIJNEN !":GOT0610 
625 PRINT"AANTAL REGELS OP EEN SCHERM : ( s tandaard 24) 
630 INPUT B 
640 TR=(A)*TSL 
650 VT= (B+1 )*TR 



»»«« JUNIOR BASIC LISTING ++ DE 6845 GEPRQGRAMMllRD ++ «*»» 



660 
665 
670 
675 
677 

mo 

690 
700 
71 0 
800 
81 0 
81 5 
900 
91 0 
91 5 
1000 
1010 
1 1 00 
1110 
1120 
1 1 2A 
1 1 26 
1 1 28 
1 1 30 
1 200 
1202 
1 204 
1 205 
1 f ©6 
1 207 
1 208 
1 g©f 
1210 
1211 
1212 
1213 
1214 
121 5 
1218 
1 220 
1 225 
1 231 
1 232 
1234 
1 235 
1240 
1 245 
1250 
1 290 
1300 
1310 
1 320 
1 330 
1340 
1350 
1351 



IF VT<=20000 THEN 680 
PRINT 

PRINT"ONMOGELIJK! " 

PRINT" VERANDER AANTAL LIJNEN OF REGELS A.U.B. " 
GOT0600 

Y=INT(20000/TR) 
R(4)=Y-1 

REM****»**«*«*»»*«»» R5 »««»«»»»#»«»»»»««««»». 

R(5)5lNT( (20000-Y»TR)/TSL) 

REM****»***»»»*»«»««» R6 »»««*«»*«****«««*««*« 

R( 6) =B 
VD=R(6J»TR 

HEM**«*«*«tt««««««*«««« R7 *»*«««*»«««*««*«««** 

R ( 7 ) = INT ( ( ( ( tB»Y+TSL»R ( 5 ) ) - ( 1 500+B»TR ) ) /2+B»TR ) /Tft) 
VP=R(7)»TR 

REM***«»*««»»*«*»»**« R8 »««***«***«««*«**«**» 
R(8)=0 

REM****»*«f «»«»»§»««» Bgi im#».»««»»«f#»»#»«t»««» 

R(9)=A-1 

REM**«**«*««»«««»«««»«»«»« RIO «»»«»»««*»«««»*»«««•« 

PRINT:PRINT:PRINT:PRINT 

PRINT"Data in RIO bepaald op welke lijn de cursor start," 



PlINT»of hij stilstaat of 

PRINT: PRINT:PRINT 
PRINT: PRINT 
G0SUB3000 
PRINT"CURS0R MODE: 
PRINT"============= 



knifftpfej'«n met welke snelheid 



FRTNf "START 

PRINT" - 
PRINT" - 
PRINT" - 
PRINT" - 
PRINT" - 
PRINT" - 
PRINT" - 
PRINT" - 
PRINT: PRINT; 
GOSUB4000 
PRINT:PRINT; 
F« I NT: PRINT: 



OP LIJN; 





STIL 


GEEN 


SNEL 


LAN6ZAAM 


0 


0 


32 


64 


96" 


1 


1 


33 


65 


97" 


2 


2 


34 


66 


98" 


3 


3 


m. ■ 


67 




4 


4 


36 


68 


100" 


5 


5 


37 


61 


101" 


6 


6 


38 


?t5 


102" 


7 


7 


39 


71 


1 03" 


8 


8 


40 


72 


1 04" 



INPUT "GEEF WAARDE R10";R(10) 
PRINT ; PRINT: FRlNf : PRINT : PRINT 



REM************************ R11 ************************* 



PRINT 
LIJN: 



PRINT"Pata in R1 1 
PRINT: PRINT : PRINT 

PRINT : PRINT : PRINT 
PRINT"EINDIGEN OP 
PRINT : PRINT : PRINT 
PRINT"EINDIGEN OP LIJN: 
PRINT : PRINT : INPUT "GEEF 
REM**»«**** R12,R13,R14 
R ( 1 2 ) =0 
R { 1 3 ) =0 
R{ 1 4 ) =0 
R ( 1 5 ) =0 
PRINT : PRINT 
GOSUB3000 



bepaald op welke lijn de cursor eindigt 
PRINT: PRINT 

PRINT : PRINT : PRINT 
0 DATA = 0" 



8 DATA = 8" 
WAARDE R1 1 " ;R( 1 1 ) 

^ R15 »«*«'»«««»«Eff«« 



#»»» JUNIOR BASIC LISTING DE 6845 GEPROGRAMMEERD ++ »««» 



1352 PRINT"SCHERM FORMAAT = ";R(1);" « ";B 
1354 PRINT:PRINT 
1 700 FOR Q = 0T01 5 
1710 PRINTK$;" R";Q; 
1 720 PRINT TAB(20);" = « | 
1 727 Z2 = R (Q) 
1730 GOSUB 2000 

17 AO PRINT" ( " ;R(Q) ;"deelaia.al,)» 

17A1 P0KE6722+Q,R(Q) 
1750 NEXT Q 

1 755 PRINT: PRINT: PRINT ' ' 

1757 GOSUB4000 

1760 INPUT"Voor vervolg toets <SPATIE - RETURN>";VV$ 
1 770 PRINT : PRINT: PRINT: PRINT: PRINT: PRIif lfR'ISt 

1780 GOSUB3000 

1800 PRINT" KLOK PERIODE TIJD 
1810 PRINT" LIJN SYNC.PULS WIJDTE 
1815 PRINT" LIJN SYNC.PULS PERIODE TIJD 
1830 PRINT" HORIZONTALE DIPLAY TIJD 
1840 PRINT" HORIZONTALE POSITIE 
1850 PRINT" KARAKTER LIJN PERIODE TIJD 
1855 VE=Y*TR+R ( 5 ) *TSL 

1860 PRINT" RASTER SYNC. PERIODE TIJD 
1865 PRINT" VERTIKALE DISPLAY TIJD 

1867 PRINT" VERTIKALE POSITIE 

1868 GOSUB4000 

1869 PRINT : PRINT : PRINT 

1870 PRINT"CRTC CONTROLLER VOLGENS DEZE 

1871 PRINT : PRINT : PRINT" <Y/N>" : INPUT Bt'$ 

1872 IF NY$r "Y"THEN1 874 

1873 GOTO1930 

1874 REM****** MASTER RESET VDU op HEX 0F9E »»»*»»»« 

1877 P0KE8256, 1 58 : P0KE8257 , 1 5 : X=USR { X ) 

1878 REM 

1900 PRINT" Nog lets veranderen aan cursor ?" 
1910 PRINT : PRINT : PRINT : INPUT"Til< Y / N . . . . < R ET U R N > " ; Y N $ 
1920 IFYN$="Y"THENPRINTCHR$(27) ; :PRINTCHR$(49) :G0T01126 
1930 PRINT:PRINT:PRINT"E I N D E":END 

2000 REM***************** DEC TO HEX ********************** 

201 0 PRINT"$" ; , 

2020 F0RZ=1 TOOSTEP-1 

2030 Z1 =INT{ Z2/1 6' Z) 

2040 Z2=Z2-Z1 *1 6^ Z 

2050 Z1=Z1+48 

2060 IFZ1 >57THENZ1 =Z1 +7 

2070 PRINT CHR$ { Z1 ) ; 

2080 NEXT Z:RETURN 

3000 IF {PR$<"Y")OR(PR$>"Y")mEN RETURN 

3010 POKE6744, 128:RETURN ■ . 

4000 POKE6744, 00: RETURN 



; TC ; L$ 
; LPB; L$ 
; TSL; L$ 
; DT ; L$ 
;HP; L$ 
iTR; L$ 

; VE;L$ 

; VD ; L$ 
; VP ; L$ 



BEREKENING VERANDEREN 



INSERT/DELETE COMMANDS 



PROTON 650X ASSEMBLER V4.4 PAGE: 0001 



0001 0000 

0002 im 

mm 0000 

Od04 0000 

0005 0000 

OOOfi 0000 

0007 0000 

OOOB 0000 

0009 0000 

0010 0000 



0613 0000 

0014 0000 

0015 0000 

0016 0000 

0017 0000 
OOIB 0000 

0019 0000 

0020 0000 

0021 0000 

0022 0000 

0023 0000 

0024 0000 

0025 0000 

0026 0000 

0027 0000 

0028 0000 

0029 0000 

0030 0000 

0031 0000 

0032 0000 

0033 0000 

0034 0000 

0035 0000 

0036 0000 

0037 0000 
0031 0000 

0039 0000 

0040 0000 

0041 0000 

0042 0000 

0043 0000 

0044 0000 

0045 0000 

0046 0000 

0047 0000 

0048 0(KX) 

0049 0000 

0050 0000 

0051 0000 

0052 0006 

0053 (m 

0054 OOOE 

0055 0012 

0056 0014 

0057 0016 



0017 

0059 0017 

0060 0017 



.TIT 'INSERT/OaOE QOMMS* 
.OPT HH, ' ,(')•;• 

* mm ' mm shmacter routines t.b.v. oe vdu-kmrt « 

1 1 iHiiti lititiwtMMW t iiftwi tt immm ii nHH i 

mm F.J.M. SMEBin^ 
LIPPEDAL 19 

2904 CL CAPELLE AAN DEN IJSSEL 
mt Otd^2Sff7 

SINDS ENI6E TIJD iERK IK MET DE CPU/VDU KflARTatilW 
ELEKTUUR IN KOHBINATIE MET DE PROTON MONITOR. 
HIERBIJ MAAK IK TEVENS GEBRUIK VAN DE PROTON EDITOR. 
DEZE EDITOR IS VOORZIEN VAN EEN CHARACTER DELETE- 
EN EEN CHARACTER-INSERT ROUTINE. 
OM NU OQK VIA HET BEaDSCHERM VAN DEZE ROUTINES GEBRUIK 

TE mm mm m m ae navolgende routines dnthikkeu. 
mmmmmmm . 



DE DELETE-ROUTINE UDRDT 6EAKTIVEERD DOOR EEN 
CONTROL-D(ELETE) IN TE TOETSEN. 
HIERBIJ yORDT HET TEKEN OP DE PLAATS VAN DE 
CURSOR VERUIJDERD EN DE REST VAN DE REGQ. 
NAAR LINKS 0P6ESCH0VEN. 

INSERT CHARACTER ROUTINE. 



DE INSERT-ROUTINE UORDT GEMCTIV^ m» ®t 
CONTROL-KNSERT) IN TE TOETSEN. 
HIERBIJ UORDT DE TEKST VANAF DE CURSOR EEN PLAATS 
NAAR RECHTS OPGESCHOVEN EN OP DE PLAATS VAN D£ 
CURSOR EEN SPATIE 6EZET, UAARNA EEN SBCNST J&m 
KAN MORDEN IN6ET0ETST. 

OM BEIDE ROUTINES TE KUNNEN 6EBRUIKEN DIENT AlLEREERST 
DE COWAND TABLE 'COTABX' TE UORDEN AANGEVULD EN 
VERVOLGENS DE COMMAND ADDRESS TABLE T£ UORDEN 
UITGEBREIfi. 

•w ZERO PAGE PQINTEie ifi . 



«*1P0INTER 

AWUNT (F CHARACTERS TO EOL 
CURRENT LII€ POINTER 
SLAVE SCREEN POINTER 
CURRENT COLUMN 
SLAVE CtLUMN 
CHARACTERS PER LIME 





9^¥m 


RAMPTR 


♦=♦+6 


OFFSET 


«=«'4 


CLN 


♦=*+4 


SCRPTR 


«s«+4 


COL 


♦=♦+2 


TEMCOL 


♦=f+2 


CHAPLN 


««M^1 



0061 


0017 




VIBEND 






0062 


0017 




CRAMPT 


^FBO) 




0063 


0017 




-1 
t 






0064 


0017 






M0200 




006S 
0066 


0200 
0200 


204402 


■ 

kXTE 


JSR CMPADR 


; CURRENT CURSOR POSITION 


0067 


0203 


18 




CLC 




0068 


0204 


A516 




LOA CHAPLN 


; CCWPUTE fttfflUNT (F 


0069 


0206 


E514 




SBC TEICO. 


; CWRflCTERS TO BE 


0070 


0208 


8506 




STA OFF^T 


; SHIFTED TO m LEFT 


0071 


020A 


AOOl 


DELI 


LDY i«01 




0072 


020C 


BlOO 




LDA (RfWPTR),Y 


; MOVE CWRACTERS 


0073 


020E 


66 




DEY 


; BEHIND CURSOR 


0074 


020F 


9100 




STA (Rffl1PTR),Y 


; 0I€ POSITION TO 



efE 5 □ S 



INSERT/DELETE COWtfWDS 



PROTON 650X flS^MBLER V4.4 PAGE: 0002 



0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

008G 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

00% 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 



0211 

0213 

0215 

0217 

0219 

021B 

021D 

021F 

0221 

0223 

0226 

0226 

0229 

022B 

022D 

022F 

0231 

0233 

0234 

0236 

0237 

0238 

0230 

023C 

023D 

023F 

0241 

0244 

0244 

0244 

0244 

0246 

0248 

024fl 

024C 

024E 

0250 

0253 

0254 

0254 

0254 

0254 

0256 

0258 

0258 

0258 

0258 

025fl 

025C 

025C 



C606 
E500 
D008 
E601 
A501 
290F 
8501 

0506 DEL2 

D0E7 

4CEBF9 

204402 Insert 

0500 
E512 
8500 
0416 

BlOO INSl 
C8 

9100 



C412 
D0F5 

C8 SPflCE 
0920 
9100 
4CEK^9 



DEC QFSET 
INC RflMPTR 

m DEL2 
INC RftMPTR+l 
LDO ROnPTR+i 

(m mf 

STfl ROMPTR+l 
LDfl CFFSET 
BNE DELi 
JMP VIDEND 

JSR CMPODR 
LDO RflMPTR 
SBC CCL 
STO ROHPTR 
LDY CHfiPLN 
LDfl (mPTRj.Y 
INY 

STfl (ROMPTR),Y 

DEY 

DEY 

CPY COL 
m INSi 
INY 

LDfl #$20 

STfl (RflMPTR), Y 

JMP VIDEND 



; m LER 



ffl-L CHfiRflCTERS 
REPUCED ? 



CURRENT CURSOR PiBITION 

COMPUTE AMOUNT 

OF CmRftCTERS 

TO BE SHIFTED 

TO THE RIGHT 

MOVE CHORflCTERS 

BEHIND CURSOR 

0^£ POSITION TO 

THE RIGHT 

ALL CHORflCTERS 
REPLACED '> 

PUT SPACE ON SCREEN 



A60A 

0406 

860E 

840F 

0412 

8414 

208DFB 

60 



00 
00 



0002 
2602 



COMPUTE CURRENT CURSOR POSITION 



CMPfiDR LDX CLN 
LDY CLN+1 
STX SCRPTR 
STY SCRPTR+1 
LDY COL 
STY TEMCOL 
JSR CRAMPT 
RTS 

HHf COMMAND TABLE « 



SAVE CURRENT LINE POINTER 



SAVE CURRENT COLUMN 
COMPUTE CURRENT RAM POINTER 



COTABX 



.BYT $00, $04 
.BYT $00, $09 



(CTL-D) DELETE CHARACTER 
(CTL-I) INSERT CHARACTER 



♦#♦ COMMAND ADDRESS TflH.E ♦♦« 



COMADR 



.WOR DELETE 
.WOR INSERT 

.END 



DELETE ROUTINE 
INSERT ROUTINE 



ERRORS: 0000 



<0000) 



0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0X0 



Diegenen die gebruik naken 
van de bij de redaktie te 
vsrkrijgen 11 patch disket 
tes voor de OCTOPUS-conpu- 
ter kunnen in bepaalde ge 
vallen tot de ontdekking 
koi«n dat de Micro-flDE as- 
seftbler niet goed werkt en 
na het opstarten een voort 
durende erromelding geeft 
die niet aeer te stuiten 
is. Uij zouden graag zien 
Haaraan dat nu precies te 
Hijten is, teaeer daar bij 




anderen geen probleaen op- 
treden. Wei heeft nen 
inciddels ontdekt, dat PL3 
er aee te naken heeft. flls 
•en daar de voorgeschreven 
juipers niet toepast, dan 
(terkt de Micro-flDE assem- 
bler Hel. 

Het problee* is echter dat 
in dat geval printers net 
een RS 232 input niet aeer 
kunnen Horden aangestuurd 
via de PL3 connector. Hier 
is dus oplossing nodig. 



Stuur de redaktie un artike- 
len, prograana's e.d. op pa- 
pier, uitgeprint op 66 a 68 
regels per pagina (fl 4) en 
8 regels per inch. Gebruik 
een nieutt lintje. 

Send your articles, programs 
etc. printed on paper to the 
editorial office. 66 to 68 
lines per page (fl 4) and 8 
lines per inch. Make use of 
a new ribbon, please. 



BOEKEN: 

Lien, D.fl. 
Het Basic-Handboek. 
Het aeest noodzakelijke stuk 
gereedschap voor de nicrocoa- 
puter bezitter! een encyclo- 
pedie aet aeer dan 500 BflSIC- 
Hoorden verklaard en toege- 
licht aet testprograma's. 
Op onze redaktie is aen van 
aening dat het nuttig is bij 
uitpluizen van Basic-prog raa- 
aa's van andere coaputers. 
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Fabelachtig prin ten in Kieur of zwarti wit 




OKIMATE 20 




OKI MICROLINE 182 



Futuristische OKI-afdrukkers erkend de OKImate 20 v.a. fl 985 -- 

beste in Nederland. Nu ook voor Microlinp 1R9 fl ii7n 

iedereen betaalbaar geworden. exc b?w BnL JLVInri^ 
Aansluitbaar op Commodore 64, BBC, adviesprijs. 

MSX e.a. homecomputers. OKI printers, door computers voor computers. 



Vraag de dealeriijst bij de officieie Importeur 



Technitron B.V. 



Zwarteweg 110. Postbus 14, 1430 AA AalsmeerT tel. 02977-22456 - telefax 02977-40968 - telex 13301 



